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This publication describes the internal specifications 
of PL/I Subroutine Library as a system component of IBM 
System/360 Time Sharing System. The relationships 
between the code produced by the TSS/360 PL/I compiler, 
the PL/I Library modules and the control program are 
described, and summaries of the properties of individual 
modules are provided. This information is intended for 
use by those involved in program maintenance and by sys- 
tem programmers who are altering the program design. 
Program logic information is not necessary for the use 
and operation of the program. 



PREFACE 



This publication describes the object- 
time PL/ I Library package which forms an 
integral part of the PL/I processing sys- 
tem. General information covering the 
overall design and conventions is provided 
as well as information specific to the 
various areas of language support. 

The publication is intended primarily 
for technical personnel who wish to under- 
stand the structure of the library in order 
to maintain, modify, or expand the PL/I 
processing system- 
Information relevant to this manual is 
contained in the following IBM 
publications : 

IBM System/360 Operating System ; 

Principles of Operation , Form 
A22-6821 

PL/I Language Specification , Form 
Y33-6003 



System Control Blocks , Form Y28-2011 



Assembler User Macro Instructions , 
Form C28-2004 



TSS/360 PL/I Compiler, Program Logic 
Manual , Form Y28-2051 



An introductory section, 'The PL/I 
Liurary' and the first part of Section II 
contain a general description of the 
library as a component of IBM System/360 
Time Sharing System, and general notes on 
features of the system and the TSS/360 PL/I 
Compiler that are used in the library 
implementation. The remainder of Section 
II describes the design of the library 
modules in relationship to PL/I language 
features, and indicates the use that is 
irade of the control program to support the 
design. 



IBM System/360 Time Sharing System : 

Assembler Language , Form C28-2000 

Concepts and Facilities , Form C28-2003 

TSS/360 PL/I Reference Manual , Form 
C28-2045 

System Programmer's Guide , Form 
C28-2008 

PL/ I Library: Computational Subrou- 
tines , Form C28-2046 

TSS/36 PL/I Programmer's Guide , Form 
C28-2049 



The descriptive material is supported by 
a set of module description summaries, data 
control block descriptions, and several 
appendixes. The module summaries, in Sec- 
tion III, indicate the salient features of 
individual modules in the library package, 
and act as guides to the program listings 
that are available as part of the PL/I 
Library distribution. The fourth section 
contains detailed descriptions of the for- 
mat and content of the control blocks used 
by the PL/I Compiler. The appendixes con- 
tain details of the system macro instruc- 
tions used, library pseudo- registers and 
macro instructions, and library internal 
error codes. 
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INTRODUCTION: THE PL/I LIBRARY 



FUNCTION 

The PL/I library was designed as a set 
of reentrant object modules, each perform- 
ing a single function or a group of related 
functions. 

The library modules can be divided into 
two groups : 

1. Those that act as an interface between 
compiled code and the IBM System/3 6 
Time Sharing System; these modules are 
mainly concerned with input/output, 
dynamic program and storage manage- 
ment, and error and interrupt 
handling. 

2. Those that are closed subroutines spe- 
cifically designed to perform arith- 
metic computations, data conversions, 
I/O editing and string generic built- 
in functions as the major part of 
their task. 



USAGE 

The code produced by the PL/I compiler 
includes many calls to PL/I Library 
modules, where their specific functions are 
required. The library modules themselves 
reside in SYSLIB , and are dynamically 
loaded when referenced during program 
execution. The modules explicitly called 
JDy object code will remain in virtual 
storage until trie user unloads his object 
module explicitly. Thus, succeeding execu- 
tions of the same module will not cause 
reloading of library modules. 

The PL/1 library acts as the sole inter- 
face between compiled code and the system. 
The compiled code does not issue SVCs or 
system macro instructions but instead 



issues a library call. Although the 
library module Cs) called can issue an SVC 
instruction, it is more convenient to use 
system macro instructions. This method 
means that wnen the system changes, only 
the library module is rewritten, with the 
call to the library from the compiler 
remaining as before. Similarly, if the SVC 
calling sequence changes, the system macro 
is changed accordingly and the library 
module need only be reassembled. 



For further details on macro instruc- 
tions, see IBM System/360 Time Sharing Sys- 
tem: Assembler User Macro Instructions . 
The system macro instructions used by the 
library are listed in Appendix A. 

User-designed modules can be substituted 
for linrary modules; each user module is 
given the name of the library module it is 
meant to replace. 

Under TSS, PL/I statements that are 
related to a number of facilities will be 
accepted for compilation but are not sup- 
ported and will, during execution of the 
PL/ I program, cause a diagnostic message to 
be issued. The unsupported facilities, and 
their associated system actions, are: 



Facility 

Checkpoint 

Multitasking 

Sort/Merge 

Restart 



System Action 

Continue 

Revert to command mode 

Revert to command mode 

Continue or Finish condition 



Teleprocessing Finish condition 
Regional I/O Finish condition 
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SECTION I 



METHOD OF OPERATION 
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GENERAL IMPLEMENTATION FEATURES 



NAMING CONVENTIONS 



External Names 



PL/I Library module names always begin 
with IHEW; other external names always 
begin with IHE. The uses and meanings of 
these names are explained in Figure 1. 

Registers: Symbolic Names 

The following symbolic names are used in 
the library modules for general registers 
0-15: 





Symbolic 




Symbolic 


Reqister 


Name 


Reqister 


Name 





R0 


8 


RH 


1 


Rl f RA 


9 


RI 


2 


RB 


10 


RJ 


3 


RC 


11 


RX f WR 


«* 


RD 


12 


PR 


5 


RE 


13 


DR 


6 


RF 


14 


LR,RY 


7 


RG 


15 


BR f RZ 



The following symbolic names are used 
for the floating-point registers: 





Symbolic 


Register 


Name 





FA 


2 


FB 


4 


FC 


6 


FD 



LINKAGE CONVENTIONS 

Linkage between modules generally fol- 
lows the system standard calling sequence. 
The main features of this are: 



Arguments are passed by name, not by 
value- The addresses of the arguments 
are passed, not the arguments 
themselves. 



These addresses are stored in a param- 
eter list. 



3. The address of the list is stored in 
register RA. 

Some PL/I Library modules, however, are 
called by a PL/I standard calling sequence. 
The main features of this are: 

1. Arguments are passed by name. 

2. Arguments are passed in general 
registers. 

This standard can only be used where the 
number of arguments is both fixed and less 
than eight. If these conditions are not 
met, the system standard is used. One PL/I 
Library module, IHEWSAP, does not use eith- 
er of these standards. The subroutines in 
this module pass arguments by value as well 
as by name. 

Whichever standard is used, whenever one 
module links to another a save area must be 
provided for the contents of the registers 
used by the called module. The save area 
procedure is: 

1. The calling module provides a standard 
save area (SSA) for the called module. 
The address of this save area is 
stored in register DR. 

2. If the called module in turn calls 
another module, it provides that 
module with a save area. Register DR 
now contains the address of this new 
save area. The save areas are chained 
together by the chain-back address 
field in the new save area. 

3. On return to the calling module, the 
following will be unchanged : 

Registers RB through LR 
Program mask 

while the following may be changed : 

Registers R0, RA, and BR 
Floating-point registers 
Condition code 
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[Number of j | | 

| Characters j Format | Use | Meaning 

I 7 j IHEWXXX[ Module name (XXX are chosen for mnemonic 

j- J- + 4 identification of function, 

| 6 (IHEXXX (PL/I Library defined macros j 

| 7 j IHEXXXX| Entry-point name (First six characters are module name 

I | | | (omitting the W) ; the seventh identifies! 

I | j [the entry point within the module, 

| 7 jlHEQXXX j Pseudo -register name j XXX are chosen for mnemonic 
| | j j identification of function. 

I X X . . . X _ 

Figure 1. External Names Used by the PL/I Library 



4.1 
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The standard save area is a 7 6 -byte area 
in which the contents of all the general 
registers can be saved. The format is 
described in Section IV. 

The library does not support intermodule 
trace. Therefore: 

1. The chain-forward field in the SSA is 
not set. 

2. Calling sequence and entry- point iden- 
tifiers are not employed. 



CODING CONVENTIONS 

Because all modules within the PL/ I 
Library are coded to be reenterable, the 
following coding constraints must be 
observed: 



To invoke a library module, library 
macro IHECVC is used to load register BR 
from the list of V-cons in IBEWCVC. This 
is followed by the normal BALR instruction. 

IHEWCVC also contains L-form and execut- 
able macros. The macro expansions contain 
address-dependent parameter lists or 
address constants. The L-form macros are 
used with the corresponding E-form: the 
executable macros have no L-form and are 
invoked with a BAL instruction. 

Finally, IHEWCVC contains miscellaneous 
address constants from the library. 

The base address of IHEWCVC is set in 
pseu do- register IHEQCTS by initialization 
in IHESAP. Offsets in IHEWCVC are known to 
all modules from the DSECT IHEZCVC, which 
is part of macro IHELIB. 



1. The modules are read-only. 

2. Workspace (for save areas and tem- 
porary work areas) is obtained within 
an area dynamically allocated at pro- 
gram initialization or by a call to 
the Get VDA (variable data area) sub- 
routine in IHEWSAP. (See • Library 
Workspace* . ) 



LIBRARY MACRO INSTRUCTIONS 

Eight macro instructions are available 
for use in the library modules; they reside 
in PLIMAC. To obtain these instructions, 
PLIMAC should be used with PLINDX when 
assembling. Five of these, IHEYCVC, 
IHEEVT, IHELIB, IHEZAP and IHEZZZ, set up 
symbolic definitions and the other three, 
IHECVC, IHESDR, and IHEPRV, set branches to 
external modules, and set the current 
addresses of the standard save area and the 
pseudo-register vector (PRV) respectively. 
The library macros are described in Appen- 
dix C. 



SHARED LIBRARY 

With the exceptions of IHEWCVC, one copy 
of all the PL/I library modules is shared 
by all TSS users. 

Shared modules cannot contain any type 
of address constant, so these are collected 
in the non-shared module IHEWCVC. Thus, 
IHEWCVC contains a list of V-type address 
constants for every library entry point 
which can be called from another library 
module. The order of these entries is pri- 
marily alphabetical, but is irregular where 
certain library modules select V-cons by 
their position in a table of V-cons. 



LINKAGE EDITING 

A very significant space reduction 
(twenty- fold) is obtained by combining the 
library into two modules, CFBAI and CFBAJ, 
which may reside on SYSLIB. CFBAI contains 
30 control sections, all of which are 
shareable and smaller than one page. CFBAJ 
contains the un-shared routine IHEWCVC in a 
single control section. 

The arrangement of the original modules 
is given in Appendix G. 



DATA REPRESENTATION 

Three types of data may exist within a 
PL/I program: 

1 . Arithmetic 

2. String 

3 . Statement-label 

The internal representation and other 
details of these three types are shown in 
Figures 2, 3, and 4. The invocation count 
used in the statement- label data represen- 
tation is described in 'Program Management" 
later in this section. 

Arithmetic or string data may be speci- 
fied with the PICTURE attribute. A PICTURE 
arithmetic data item is called a numeric 
field and is represented internally as a 
character string. An arithmetic data item 
without a PICTURE attribute is called a 
coded arithmetic data item (CAD) and is 
represented internally in one of three sys- 
tem formats : 

Fixed- point binary 
Floating-point 
Packed decimal 
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Some PL/I Library modules , however, are 
called by a PL/I standard calling sequence. 
The main features of this are: 

1. Arguments are passed by name. 

2. Arguments are passed in general 
registers. 



This standard can only be used where the 
number of arguments is both fixed and less 
than eight. If these conditions are not 
met, the system standard is used. One PL/I 
Library module, IHEWSAP, does not use eith- 
er of these standards. The subroutines in 
this module pass arguments by value as well 
as by name. 



h 



Scale j Base 
| x 



V t 

| Binary 



Fixed j- 

[Decimal 



I 
j. + 

Binary 



Data Type 



| Internal 
Precision | format 
j ± 



I 



I Decimal 



Float 



\ T 

(Binary 

I 

I 

I 

Fixed J- 

| Decimal 
I 



| Binary 
I 



I 

Float j- 

j Decimal 

I 

I 



Implementation 



p,q [Fixed -point 
Max p: 31 | binary 



p,q [Packed dec- 
Max p: 15|imal 
(see | 
note) | 
+- 

P I 
Max p: 53 | 

I Hexadecimal 
4 float ing- 

p j point 
Max p: 16 | 









p<21: Word 
p>21: Double- 
word 

p<6: Word 
p>6 : Double- 
word 



p, q j Fixed- point 
Max p: 31 (binary 
I 
I 

p,q | Packed dec- 
Max p: 15 (imal 



Max p: 53 | 



(Hexadecimal 

1 f loating- 

p j point 
Max p: 16 ( 



Alignment 
REAL data 






p>15: Word 
p<15: Half- 
word 



Byte 



COMPLEX data 



p>15: Word 
p<15: Half- 
word 



Byte 



_, 

p<21: Word 
p>21: Double- 
word 



h 



p<6: Word 
p>6 : Double- 
word 



Processing 



H 



Arithmetic operations are performed 
on p-digit integers: scale factor q 
is specified in a data element 
descriptor. (See Figure 47) 

The p digits occupy FLOOR ( (p + 2)/2) 
bytes. Arithmetic operations as for 
fixed binary. 



The data is normalized in storage 
before and after arithmetic operat- 
ions. 



- — ^ 



As for real fixed binary. The real 
and imaginary parts occupy adjacent 
fullwords or half words, with the 
real part first. 



As for real fixed decimal. The real 
and imaginary parts occupy adjacent 
fields, with the real part first. 



t- 



As for real floating-point binary. 
The real and imaginary parts occupy 
adjacent fullwords or doublewords, 
depending on the precision, with the 
real part first. 



As for real floating-point decimal. 
The real and imaginary parts occupy 
adjacent fullwords or doublewords, 
depending on the precision, with the 
real part first. 



I J 

Note : When p is even, the effective precision for all arithmetic operations except 
division is (p + l # q) f except when the SIZE condition is being checked. When this 
occurs, the first digit in the high-order byte must be checked to ensure that it is 
zero. 



Figure 2. Arithmetic Data Representation 



1 



I Data type |— 



Implementation 



| Representation | 



Length 



j Alignment 



H 



Bit 



|1 binary digit | | Byte 

1 |per nit (Maximum length: 32,767. If a VARYING attribute is | (see note) 

j._. .j. -(declared, maximum length is declared length, [■ 

| Character | 1 character per (regardless of the string value. | Byte 

I I byte 

h 



H 



[ Note ; The string occupies CEIL (n/8) bytes. If the string comes within the scope of 
| an UNALIGNED attribute, the address of the first bit is provided by a byte address and 
| bit offset in an SDV. (See 'String Dope Vector* in Section IV.) 

i . .. , 

Figure 3. String Data Representation 



7 8 31 

r . . 1 

| Invocation Count I 

|. T _ „„ _ H 

| I A (Statement label) | 

L A . . . J 

Figure 4. Statement-Label Data 
Representation 



COMMUNICATION CONVENTIONS 

The use of library modules in a PL/I 
program requires that: 

1. Working storage be provided for the 
modules . 

2. Techniques for passing information 
about arguments and program status be 
provided. 

Working storage is obtained as library 
workspace (LWS) . Section IV gives the for- 
mat of LWS, which is allocated by the 
library program management module IHEWSAP. 

Two modes of communication are available 
for passing information: 

Explicit : Uses parameter lists and 
registers. (See 'Linkage Conventions') 

Implicit : Uses pseudo- registers or a 
library communication are a. 

Some library modules are interpretive 
(as opposed to declarative), and according- 
ly require that information regarding the 
characteristics of their arguments be supp- 
lied. Such information is made available 
to the library in the form of standardized 
control blocks. The form and content of 
the compiler-generated control blocks in 
general use throughout the implementation 
are described in Section IV; one or more 
blocks is required according to the nature 
of the data passed: 



Scalar arguments: 

Data element descriptor (DED) 
String dope vector (SDV) 
Symbol table (SYMTAB) 

Array arguments: 

Array dope vector (ADV) 

String array dope vector (SADV) 

Structures: 

Structure dope vector 

Dope vector descriptor (DVD) 

Formats: 

Format element descriptor (FED) 

Special-purpose control blocks, such as 
the file control block (FCB) , are described 
in this section and in Section IV. 



Pseudo-Register Vector (PRV) 

This is a 4096 byte table, consisting of 
4 or 8 byte entries called pseudo-registers 
(PRs) . These PRs effectively operate as 
implicit arguments giving information 
about, for example, current program status. 
All references to specific PRs within the 
PRV are made by the addition of a fixed 
displacement to the PRV base address con- 
tained in register PR. 

All PRs used in the PL/I Library are 
defined as a standard set of 29 in the 
library macro IHELIB; this macro is coded 
at the beginning of every library module. 
The PRs used by the PL/I Library are shown 
in Appendix B. 

library Workspace (LWS) 

Various library modules require working 
storage : 

1. For internal functions. 
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2. For linkage to other modules, (A reg- 
ister save area must te provided.) 

Library modules which use library work- 
space (LWS) refer to it by means of the 
PRV. A group of pseudo-registers in the 
PRV is set during LWS allocation to contain 
the addresses of contiguous areas within 
LWS. (See Section IV.) Each of these 
areas is at a different level. 

The notion of level exists because of 
inter-rrodule linkage between library 
modules: 

1. A module which invokes no other 
modules is assigned level 0. 

2. A module which invokes other modules 
is assigned a level number greater 
than the level number of any invoked 
module. 

3. A module which transfers control to 
another module (i.e., does not expect 
a return) is assigned the level number 
of that module. 

Invocation of the error-and-interrupt- 
handling subroutine is net considered suf- 
ficient to raise the level number of the 
invoking module, since the error subroutine 
uses a special level. 

Library workspace is allocated as pri- 
mary or secondary LWS. 

Primary LWS is allocated during program 
initialization, before control is passed to 
the main procedure. Tne storage thus 
obtained is not freed until the PL/I pro- 
gram is finished. 

Secondary LWS is allocated for special 
purposes during program execution and is 
freed when the situation for which it was 
created no longer exists. It is allocated: 

1. When an on-unit is entered from a 
library module. This may lead to a 
recursion problem: Library modules 
called may overwrite this LWS. To 
avoid this, the existing LWS is 
stacked, a new one obtained and all 
the LWS pseudo- registers updated. 

2. When SNAP, system action or error mes- 
sages are to be printed. The PRINT 
subroutine may overwrite the existing 
LWS: To avoid this, the same proce- 
dure is followed as for an on-unit. 

The library program management module 
IHEWSAP controls the allocation of LWS and 
the setting of the library pseudo- 
registers. The library macro IHELIB con- 
trols the length of LWS and of each area 
within it. The LWS format can be changed 



by changing IHELIB and reassembling 

IHEWSAP. 

Modules using specific areas in IWS 
address these areas by the following 
library macros: 

IBEPOT: Used to address the LCA cr when 
using an area as temporary workspace. 

IHESDR : Used when a module requires a 
standard save area for a module it is 
calling. 

L ibrary Communication Are a (LCA) 

Within the area allocated for library 
workspace is an area in which various sym- 
bolic narres are defined. These names are 
used for implicit communication between 
library nodules (mainly the data conversion 
modules). This area is the library com- 
rrunicaticn area (LCA); its format and the 
usage of the symbolic names are shown in 
Section IV. The LCA address is stored in 
the pseudo-register IHEQLCA. 

In the LCA there is a dcublewcrd imiredi- 
ately before the first symbolic name. This 
contains (in the first four bytes) the 
address of the prior generation of LCA 
within a given PL/I program. This field is 
used to readdress the LCA which existed 
before an ON block was entered. IHEQLCA 
contains the address of the first symbolic 
name. 

Execut ion-Time Dump 

A PL/I user may obtain a dump at any 
point in his program by calling IHEWDUM; 
the entry point used determines whether the 
PL/I program will continue or terminate 
after the dump. 

IHEEUfciC: Dump and continue 

IHECUMT: Dump and terminate 

If the program is being run nonconversa- 
tionally, all pages containing save areas 
cr file blocks will be written on SYSOUT, 
with DSNAME=PLIDUMP. Identification cf 
required information (such as save area 
locations) in the dump is difficult because 
this information is not necessarily stored 
in locations arranged in a chronological 
sequence. To facilitate reading the dump, 
therefore, two subroutines, IHEWZZC and 
IHEWZZF, are provided. They extract cer- 
tain information (chiefly about save areas 
and opened files) and print it as an index 
to the dump. Full details of this informa- 
tion are given in Appendix E. 

If the program is being run conversa- 
tionally, there will be no automatic duirp? 
an index of the current areas will te 



printed and a PAUSE issued, to invoke the 
command irode. The user can t^nen display 
any of the areas defined in the index, and 
may return to the PL/I program by the GO 
command. 



INPUT/OUTPUT 

FILES AND DATA SETS 

Within this publication, the terra f data 
set' refers to a collection of records that 
exist on external storage. A file is known 
as such only within a program. 



module exists in read-only storage, the 
following technique is employed to commun- 
icate file arguments. All calls from com- 
piled modules to the library involving file 
arguments address a read-only control 
block, the DCLCB. The library, using a 
field within this control block, is able to 
address a cell within the pseudo-register 
vector generated for the PL/I program. 
This cell, the file register, in turn 
addresses a dynamically allocated control 
block, the file control block CFCB) . (See 
Figure 5 . ) 



The relationship between a file and a 
data set is established when the file is 
opened. The data set to be associated with 
a file is identified by the TITLE option. 
If this option is omitted or an implicit 
open occurs, a default identifier is formed 
from the first eight characters of the file 
name. The data set identifier is not the 
data set name, but the ddname (i.e., the 
name of the DEEF command) . Error messages 
which are related to file operations use 
the full file name (1 through 31 
characters) . 



The attributes of a file in some 
instances restrict the attributes of its 
associated data set, but in tnose instances 
where device independence is possible, tne 
full capabilities of the CDEF command are 
available. Unit assignment, space alloca- 
tion, record format and length, and various 
data management options (such as write- 
verify) are established en a dynamic basis. 



Declare Control Block (DCLCB) 

This control block, generated during 
compilation, contains information derived 
from a file declaration (either explicit or 
contextual). In addition, it contains the 
offset within the PRV of the file register, 
a fullword pseudo-register employed within 
the file addressing scheme. This pseudo- 
register contains the address of a dynairic 
storage area containing a file control 
block. The DCLCB is read-only, and thus 
permits compiled programs to exist within a 
reentrant environment (which may imply that 
the program is loaded into supervisor pro- 
tected storage). The maximum length of a 
DCLCE is 56 bytes. 



File attributes specified within the 
ECLCE may be supplemented, tut not overrid- 
den, by attributes specified in the OPEN 
statement which opens the file. An excep- 
tion to this rule is the LINES1ZE option, 
which overrules record length information 
declared in the ENVIRONMENT attribute. 



FILE ADDRESSING TECHNIQUE 

In order to accomodate reentrant usage 
of a PL/I module, which may imply that the 



The format of the DCLCB is described 
fully in Section IV, 'Input/Output Control 
Elocks" . 
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Figure 5. File Addressing Scheme 
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File Control Block (FCB) 

This control block is generated during 
program execution when a file is opened. 
The FCB storage is required in order to 
accommodate reentrant usage of a given PL/I 
module, for the FCB is not read-only. The 
FCB contains fields for both the PL/I 
Library and for TSS/360 data management. 
The initial portion of an FCB is PL/I- 
oriented, while the second portion is the 
DCB required by data management for all 
data set operations. The PL/I portion, 
called the DCE-appendage, is described in 
Section IV; details of the various DCB con- 
structions are available in the following 
IBM publications: 



System 



IBM Systeir/360 Time Sharing System: 
Control Blocks 

IBM System/360 Time Sharing System: 
Assembler User Macro Instructions 



An FCB is generated for each file opened 
within a program; an FCB cannot exist for 
an unopened file. 



When a file is opened, its generated FCB 
is placed in a chain which links together 
(through the TFOP field in the FCB) all 
files opened in the PL/I program. When 
files are closed, they are removed from the 
chain. This chain, which is anchored in 
the PRV cell IHEQFOP, exists in order to 
perform special PL/I closing processes at 
program termination (whether normal or 
abnormal) . When a PL/I program terminates, 
the object-program housekeeping routines 
determine which files are currently open 
for this PL/I program. This is performed 
by the relevant housekeeping module calling 
IHEWOCL (close), which scans the chain and 



calls IHECLTB to close all open PL/I pro- 
gram files. If the cell IHEQFOP is zero, 
then no files are, at present, open for the 
PL/ I program. The IHEQFOP chain is shown 
in Figure 6. 



Prograir Execution 

When program execution is initiated, the 
PRV (including all file registers) is 
initialized to zero. When a file is opened 
(prepared for I/O operations), its asso- 
ciated file register is set to address an 
FCB; similarly, when a file is closed 
explicitly, its file register is again set 
to zero. 

If the file is not opened, the file reg- 
ister remains zero. If a file has gone 
through the opening process but has failed 
to be opened (UNDEFINEDFILE condition) , the 
high-order byte (bits to 7) of the file 
register will contain an error code that 
indicates the cause of failure. The codes 
consist of two hexadecimal digits; they are 
shown in Figure 7. 

Two advantages of the use of the DCLCB 
in the file addressing scheme are: 

1. Because the DCLCB, in conjunction with 
an implicit opening statement, pro- 
vides all the information necessary to 
open a file, a file can be opened by 
I/O statements other than the OPEN 
statement. 

2. The address of the DCLCB can be used 
as the file identification in ON con- 
ditions that relate to files. ON con- 
ditions may be enabled for a file 
before it is opened, since the DCLCB 
address is always available. 
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The FCBs are opened in the order 1, 2, 3, etc. 



Figure 6. Format of the IHEQFOP Chain 



I I 
I I 
I I- 



FCB3 



I TFOP 



10 



r ~ - i 
| Error | 


r 


| code 
L. J 


Meaning 
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r 
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OPEN attributes 


| 82 


File access method not 
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I 83 


No block size 


| 84 


No DDEF 


| 85 


TRANSMIT condition wtiile 




initializing data set (only 




applicable to DIRECT OUTPUT 




REGIONAL files) 


| 86 


( Conflict between PL/I attri- 




butes and environment options 


| 87 


Conflict between environment 




| options and DDEF parameters 


| 88 


, Key length not specified 


| 89 


i Inccrrect block size or logical 




record size specified 


I 8A 


Line size greater than 




implementation- defined maximum 



All errors are communicated back to IHE- 
WOCL by ireans of the file registers; IHE- 
WOCL then invokes the error handling sub- 
routine. The error conditions are signaled 
in the high-crder byte of the file regis- 
ter; IBEWOCL, upon detecting an errcr con- 
dition, sets bit of this register to in- 
dicate an unopenable file. The errcr codes 
are shown in Figure 7. 
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n control tlcck 

the compiler. 

indicates the 
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Figure 7 . Error Codes Indicating Causes 
of Failure in Open Process 



Open Control Block (QCB ) 

One cf the parameters whi 
passed to IHEWOPN is the ope 
(OCB) , which is generated by 
This four-byte control block 
attributes specified in the 
During the opening process, 
ticn is merged with that in 
order to construct the prope 
for attribute conflicts. (S 
for details of the OCB.) 

The Open process 



Open Process, Phase I ; IHEWOPN : This per- 
forms file attribute checking and default- 
ing functions. If an attempt is made to 
open a REGIONAL file, an error message will 
be issued to SYSOUT; the file will be unde- 
fined and the error condition raised. If, 
in phase I, all files specified in the OPEN 
statement have detected errors, a return to 
IHEWOCL is made immediately. Otherwise 
phases II, III and IV are invoked and a 
return is made to IHEWOCL from IHEWOPQ. 



OPEN/CLOSE FUNCTIONS 

The opening of a file occurs either 
explicitly by the use of an OPEN statement, 
or implicitly because of other I/O opera- 
tion statements. 

Opening a file involves the creation of 
an FCB, the setting of a file register to 
address the FCB, and the invocation of tne 
data management OPEN executor. The closing 
of a file involves invocation of the data 
management CLOSE executor, fr€:eing FCB 
storage, and clearing the associated file 
register . 



EXPLICIT OPENING 

The modules involved in OPEN processing 
are IHEWOCL, IHEWOPN, IHEWCPC, IHEWOPP, and 
IHEWOPQ. These modules are link edited 
together, and transfer control between one 
another with either the CALL macro, or a 
direct branch. The module IHEWOCL passes a 
list of all necessary address constants and 
pseudo-register offsets; this list is con- 
tained in the library module IHEWSAP. 

The flow through the OPEN nodules is 
illustrated in Figure 8. 
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Figure 8. Flow Through the OPEN Modules 
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O pen Process, Phase II ; IHEWCFO: This 
obtains storage for an FCB for each file 
being opened, and sets fields in both the 
DCB and DCB-appendage according to the 
declared attributes. 



Stream-oriented I/O: 

If OUTPUT with U-foririat records, the 
last record is written. 

Record-oriented I/O: 



Open Process, Phase III : IHEWOPP: This 
executes the OPEN macro, and accepts 
DCB-exits. 

Open Process, Phase IV : IHEWOPQ: This 
calls record-oriented I/O modules (setting 
their addresses in the FCB) , and enters the 
files being opened into the IHEQFOP chain 
of files opened in the current task. 

Any files which devolve to the TSS SYS- 
OUT or SYSIN will not need to be opened; 
however, the checking which is done in 
these modules is useful, so only the actual 
OPEN process (in IHEWOPP) will be branched 
around. 

If, during Pnase II or Phase III, a file 
is determined to be a RECORD I/O file, and 
no JFCE exists for it, a diagnostic will be 
issued, and return to command mode will be 
effected by raising the 'FINISH* condition. 



All incomplete I/O event variables 
associated with the file are set com- 
plete, abnormal, and inactive, and 
the I/O operations are purged. 

Any files which devolve to the TSS SYS- 
OUT or SYSIN will not need to be closed; 
however, the checking which is done is use- 
ful, so only the actual CLOSE macro (in 
IHEWCLT) will be branched around. 

IMPLICIT OPENING 

If a file is not open and an I/O opera- 
tion is initiated, then one of the compil- 
er-interface modules (IHEWIOA, IHEWIOB, or 
IHEWION) calls IHEWOCL at implicit-cpen 
entry point IHEOCLC, passing any implied 
parameters, and the open process begins. 

If the OPEN modules return control to 
IHEWOCL and the file is still unopened, the 
UNEEFINEEFILE condition is raised. 



The Close Process 



STREAM-ORIENTED I/O (SEE FIGURE 9) 



This process consists of removing files 
from the IHEQFOP chain and freeing dynamic- 
ally acquired storage (file control blocks, 
buffers, exclusive control blocks, and I/O 
control blocks) . 

Module IHEWOCL starts the close process; 
for an explicit close it links to IHECLTA, 
for an implicit close to IBECLTB. If the 
last operation on a BUFFERED SEQUENTIAL 
INDEXED OUTPUT embedded-key file, before it 
is closed explicitly, is LOCATE, module 
IHEWOCL replaces the embedded key with the 
KEYFROM option, before passing control to 
IHEWCLT. For further information refer to 
Indexed Data Sets . 



The normal return from a KEY on-unit is 
to the statement following that in which 
the condition is raised. Consequently, if 
the KEY condition is raised during the 
execution of an explicit CLOSE statement, 
the file will not be closed unless the on- 
unit also includes a CLOSE statement. 

In addition, if a file is closed impli- 
citly, IHEWOCL scans the IHEQFOP chain to 
find the file. For an implicit close, all 
events associated with I/O event variables 
in the IHEQEVT chain are purged, and the 
associated IOCBs, if any, are freed. 

Module IHEWCLT performs additional spe- 
cial functions as follows: 



The stream-oriented I/O facilities cf 
PL/I provide for the transmission of data 
items to or from external storage, without 
considerations of logical and physical re- 
cord lengths affecting the user program. 
These facilities block and deblock user 
data items in a manner that is transparent 
to the user, so that they can be read and 
written by the system's data management 
routines. When a record area becomes 
filled (on output) or empty (on input) , the 
user data is continued on another record; 
the user will never be aware of this break. 

Support for record access is provided by 
the data management VAM and QSAM routines, 
and SYSIN and GATWR macro instructions. 
The VSAF and QSAK GET and PUT macrc 
instructions used are all locate mode, to 
conserve space and time; SYSIN and GATWR 
macrc instructions are used when the file 
is SYSIN or SYSOUT, respectively. 

Current File 



The current file is 
ceing operated upon by 
is established when an 
and removed when the op 
pieted. The current fi 
through the pseudo-regi 
addresses the ECLCB for 
pseudo-register is avai 
upon entry to ON blocks 
mission. Its format is 



that one which is 
an I/O statement; it 
operation begins, 
eration is ccm- 
le is addressed 
ster IHEQCFL, which 

the file. This 
lable for inspection 
, and during trans- 
shown in Figure 10. 
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Within a stream- oriented data specifica- 
tion there may exist expressions which 
involve function references. In turn, the 
function procedure may itself perform I/O 
operations or may refer to ON blocks that 
perform I/O operations. When this situa- 
tion occurs, it is necessary to stack the 
current file pseudo-register. The presence 
of the COPY option in a GET statement and 
the raising of the TRANSMIT condition for 
an item in the data stream are flagged in 
the fifth byte of IHEQCFL: 

TRANSMIT to be raised on item : Bit 5=1 

COPY option in statement: Bit 6=1 

Current file in PRV: Bit 7=0 

Current file stacked in DSA: Bit 7=1 

Stacking of the current file is effected 
by the I/O initialization modules; upon 
entering such a module (e.g., IHEWIOA and 
IHEWIOB) , the contents of the pseudo- 
register IHEQCFL are stored in the DSA 
(dynamic storage area) of the invoking pro- 
cedure, as addressed by register DR. The 
stacking cell is termed the current file 
pseudo- register update. Upon termination 
of an I/O operation, either normally or by 
means of a GO TO statement out of an ON 
block, this cell is copied back into the 
pseudo-register IHEQCFL. 

GET and PUT statements with the STRING 
option employ the current file pseudo- 
register, but no abnormal return entry 
exists. Instead, the latter four bytes 
address a simulated FCB. 

Standard Files 

Within the PL/I language, the keywords 
SYSIN and SYSPRINT indicate the standard 
input and output files. At execution time, 
SYSIN is interpreted as the TSS SYSIN, and 
SYSPRINT as the TSS SYSOUT. 



messages, and listing of data fields for 
the COPY and CHECK options require the pre- 
sence of this file. 

Because the library and the source pro- 
gram both use the SYSPRINT file, it is 
necessary that they both refer to the same 
DCLCB. Both the compiled DCLCB and the 
library-supplied DCLCB for SYSPRINT (within 
the module IHEWPRT) are supplied with the 
same name, so that only one of them will be 
placed within the linked program. The name 
of both CSECTs is IHESPRT; the name of the 
associated file register is IHEQSPR. 

If the current file is SYSIN, a SYSIN 
macro is issued to obtain stream input; 
this will send a colon to SYSIN, to indi- 
cate to the user that input is expected. 
The input data will be placed in the buffer 
provided for this file. 

If the current file is SYSPRINT and the 
task is conversational, the data specified 
by the user in his PUT statement will be 
immediately written out to his terminal by 
a GATWR macro instruction. This data will 
be followed by a return suppression 
character, so that the user's terminal will 
continue typing the next record on the same 
line, unless the SKIP option is specified 
in the next PUT statement. 

If the current file is SYSPRINT and the 
task is non conversational, the data speci- 
fied by the user in his PUT statement will 
be placed in the output buffer, but will 
not be written out until that buffer is 
full, or until the SKIP option is specified 
in a PUT statement. 

The SYSIN and GATWR macros required for 
SYSIN and SYSPRINT I/O are contained in 
library modules IHEWIOF and IHEWIOB. 

Get/Put Object Program Structure 

The code compiled for stream-oriented 
I/O GET and PUT source statements has the 
general structure illustrated in Figure 11. 
There are three 'call sets' compiled for 
these statements: 



Initialization: 

This call invokes one of the 
initiator modules, passing: 



I/O 



The standard files, SYSIN and SYSPRINT 
have default titles equivalent to their 
file names. The compilation of GET and PUT 
statements without explicit FILE options 
causes compile-time syntax substitution of 
the file names SYSIN and SYSPRINT respec- 
tively. These files have the same compiled 
linkage to the library as other files. 
Within the library, SYSIN is not used; the 
file SYSPRINT however, is used in the error 



c. 



The address of the file DCLCB. 

The address of the termination 
call. (This is the abnormal 
return which is set within the 
current file pseudo- register 
IHEQCFL.) 

The address of the LINE or SKIP 
value. 
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Object Program Structure of 
GET/PUT 



Compilation of any data specification 
yields a series of one or more calls to the 
library for transmission of data between 
program storage and a record buffer. For 
list- and data- directed I/O, the data items 
transmitted are passed by means of the 
standard linkage described above. (See 
•Linkage Conventions 1 earlier in this sec- 
tion.) The PL/I standard (using registers) 
is employed wherever possible; where it is 
not, the system standard (using a parameter 
list) is employed. For edit-directed I/O f 
the 'executable format scheme* described 
below is required. 

The ON CHECK facilities for data items 
being input are supported by compiled code 
between data-list item specifications, in 
the instances of list- and edit-directed 
I/O? data-directed I/O determines the exis- 
tence of this condition from the symbol 
table entry for a given data item. 



Executable Format Scheme 

The executable format scheme exists to 
support two requirements for edit-directed 
data items: 



The initialization process includes 
stacking the current file, checking 
the specified file (and opening it if 
not already open) , and performing any 
necessary option operations. 

2. Data specification: 

This is a series of calls to perform 
list-, data-, or edit-directed stream- 
oriented I/O operations. This series 
is omitted only for GET /PUT statements 
which have no data specification. 
Details of the implementation of the 
three forms of data specification 
appear in ' Data Specifications ' , 
below. 

3. Termination: 

This call invokes the terminal subrou- 
tine of the module which performed the 
initialization. At this point the 
current file is unstacked and (for PUT 
calls) V-format output records have 
their record-length field updated. 

Data Specifications 

There are three forms of data 
specification : 



1. The matching at object time of data- 
list items with format-list items. 

2. The evaluation of expressions during 
an I/O operation. 

The scheme exists in compiled code for use 
by the library format directors and conver- 
sion package. (See 'I/O Editing and Data 
Conversion' later in this section.) 

The scheme is required because edit- 
directed data specifications contain format 
lists composed of format items that may 
have expressions for replication factors 
and format subfields. These expressions 
may have to be evaluated with values read 
in during a GET operation. Finally, the 
use of dynamic replication factors and the 
possible existence of array data-list items 
of variable bounds prevent any pre- 
determinable matching of data-list items 
and format-list items. 

Basically, the scheme calls for the 
existence of two location counters, one for 
a compiled series of data-list item 
requests, the other for a compiled series 
of format- list item specifications. These 
two series are compiled as the secondary 
calling set for a GET or a PUT operation. 
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To support the dynamic matching of a 
format-list item with any data-list item f a 
group of format directors exists within the 
library? one of these directors receives 
the call from the secondary compiled series 
of format item specifications. A director 
will determine which conversions are 
required to satisfy the transmission of a 
data item according to its internal repre- 
sentation (described by its DED) and its 
specified external representation 
(described by a FED). 

The structure of ed it-directed compiled 
code is illustrated in Figure 12. The 
first column, 'Primary code' , consists of 
calls to units in the second column, "Sec- 
ondary code'; that is, data-list items are 
requesting a match with a format-list item. 
The third column shows the flow within the 
library as set up by format directors. 

The scheme works as follows: 

1. The address of the start of the 

format-list code (executable format) 
is obtained. 



Transmission of the first data item is 
requested; its storage address and DED 
address are loaded into registers RA 

and RB. 



3. Control is transferred to the execut- 
able format? at the same time the 
location counter of the data- list code 
is updated. 

4. The executable format loads, into reg- 
ister RC, the address of an FED. 



5. A call is made to a format director 
and at the same time the location 
counter of the format-list code is 
updated. 



The format director causes the conver- 
sion package to convert the data 
according to DED and FED information, 
storing the converted data in the spe- 
cified storage address, if input, or 
placing it in a buffer, if output. 
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Figure 12. Executable Format Scheme 
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7 . Return is then made to the data-list 
code, by means of the data- list loca- 
tion counter, LR. 

8. The above steps, 2 through 7, are 
repeated until the end of the data- 
list code is reached. 

Within both primary and secondary code, 
looping and invocation of function proce- 
dures may occur. Within secondary code, 
the appearance of control format items 
(PAGE, SKIP, LINE, COLUMN, X> will cause 
the location counter for primary code, reg- 
ister LR, to be temporarily altered, so 
that control is returned from the library, 
not to the primary code, but to the secon- 
dary code. This allows the data-list item 
which activated the control format item to 
be matched with a data format item. 

Options 

COPY 

this option causes each data field 
accessed during a GET operation to be 
listed on the standard output file, 
SYSOUT. This is performed by calling 
the module IHEWPRT. Each data field 
occupies the initial portion of a line 

STRING 

this option causes a character string 
to be used instead of a record from a 
file. This situation is made trans- 
parent to the normal operation of the 
I/O modules since the initialization 
module for GET/PUT STRING (IHEWIOC) 
constructs a temporary FC£ for the 
string. Information regarding the 
address and length of the string is 
set in the FCB fields TCBA, TREM and 
TMAX. A temporary file register is 
created in the second word of the 
pseudo-register IHEQCFL. (A dummy 
DCLCB is placed in front of the 
generated FCB and consists of two 
bytes which indicate the offset of the 
dummy file register.) 

PAGE, SKIP, LINE (print files) 

these options cause the current record 
(which is equivalent to a 'line') to 
be put out, and a new record area to 
be obtained. SKIP can also be used 
with input to cause the rest of a re- 
cord in the input stream to be 
ignored. Record handling for these 
functions is performed by the module 
IHEWIOP. All printing options (and 

I format items) are supported by use of 
the American National Standard FORTRAN 
control characters: 

1 Page eject 

+ Suppress space before printing 

b Single space before printing 



Double space before printing 
- Triple space before printing 

For conversational tasks, PAGE will be 
treated as a triple space; a SKIP of 
more than 3 in an output file will be 
treated as a triple space; and a LINE 
request which implies more than 3 
spaces will be treated as a triple 
space. 

SKIP (non- print files) 

1. Input files : The SKIP (n) option 
causes the rest of the current 
line (record) to be ignored in the 
input stream, and a further 

(n - 1) lines to be ignored. 

If the task is conversational, and 
SYSIN is the input file, then the 
SKIP option is ignored. 

2. Output files : The SKIP (n) option 
causes the remainder of the cur- 
rent line (record) to be ignored 
and (n - 1) blank lines to be 
inserted into the output stream 
(for conversational tasks, a maxi- 
mum of 3 lines will be inserted) . 
Note that, for format- F records, 
each line is padded with blanks ; 
for format-V and -U records, only 
the necessary control bytes and 
record lengths are supplied. 



RECORD-ORIENTED I/O 

Object Program Structure 

In record-oriented I/O, the data enti- 
ties accessible to the source program are 
data management logical records (unlike 
stream-oriented I/O, where the data enti- 
ties are data fields, independent of record 
boundaries) . 

A wider range of record access is there- 
fore available with re cord- oriented I/O: 
records may be keyed or not, may be direct- 
ly or sequentially accessed, and may be 
manipulated within the data set by inser- 
tion, replacement, or deletion. The spe- 
cific facilities available vary according 
to the data management access method em- 
ployed to support a given data set. 

The data management facilities employed 
are indicated in Figure 13 , according to 
the organization of the data set. Note 
that not only the declared organization but 
also the mode of access and the format of 
records determine the chosen access method. 
Details of the manner in which the access 
methods are employed are provided in 
•Access Method Interfaces' . 
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Figure 13. Data Management Access Methods for Record-Oriented I/O 
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General Logic and Flow 

The overall flow of record-oriented I/O 
modules is illustrated in Figure 14. 
Nodule IHEWION is a general interface 
module which is invoked by a compiled call 
for any record-oriented I/C statement. 
This module interprets the requested I/O 
operation, verifies its applicability to 
the specified file (and, possibly, impli- 
cilty opens it), and then invokes an access 
method interface module (characterized by 
the module names IHEWIT*) to have the 
operation performed. 



The verification of a statement is per- 
formed by IHEWION by ANDing together a mask 
at offset -8 from the FOB and the second 
word of the Request Control Block. If the 
result is zero then the statement is inval- 
id. The mask in the FOB is set up by IHE- 
WOPQ to indicate which statements are 
valid, and the RGB contains the statement 
type as a single bit in its second word. 

On receiving control, the interface 
module first performs any necessary key 
analysis and record-variable length check- 
ing, and establishes any control blocks 
required. It then invokes data management 
for the transmission of a record. After 
transmission, or (if the EVENT option is 
employed and BSAM is the access method) 
after initiation of transmission, control 
returns to the general interface module 
IHEWION, and thence to the compiled pro- 
gram. Errors may be detected within IHEW- 
ION before an interface moduLe is invoked, 
or within an interface module either before 
or after data management has been invoked. 
The relevant ON condition is raised when 
detected. 



As indicated by the overa 
gram, record-oriented I/O is 
such a fashion that the addi 
access method interface roodu 
minimal changes (if any) wit 
of the implementation. The 
face mcdule IHEWION provides 
method interface module with 
rameter set: 



11 flow dia- 

implemented in 
tion of further 
ies requires 
bin other parts 
general inter- 
each access 
a standard pa- 



RA: A (Compiled parameter list) 
Parameter list: 

A (DCLCE) 

A (Record dope vector/IGNORE/SDV) 

A (Event variable) /0/A (Error 
return) 

A (KEY|KEYFROM|KEYT0 SDV) /0 

A (Request control block) 



The record dope vector and the request 
control block are described below under 
■Reccrd-Oriented I/O Control Blocks'. 

The interface modules are also invoked 
to handle WAIT statements associated with 
I/O events. The WAIT module, having deter- 
mined that an event variable (see Section 
IV) is associated with a record-oriented 
I/O operation, invokes the relevant I/O 
transmitter (IHEWIT*), passing the follow- 
ing parameters : 

RA: A (Compiled parameter list) 

Parameter list: 

A (DCICB) 

A (IOCB being waited for) 

A (Event variable) 

(Reserved) 

A (Request control block) 

The transmitter then completes the pre- 
viously initialized record transmission, if 
the access method was BSAM, and performs 
any checking required before returning con- 
trol to the WAIT module. 

From the arguments, the interface module 
is able to determine fully the operation 
requested of it. The location of the 
required interface module is available to 
IHEWION from the FCB associated with the 
file; the field TAC1V! in the FCB is set dur- 
ing the open process to point to the appro- 
priate module. 

Thus, when extra interface modules are 
provided, the only change required in the 
cpen modules is the provision of code to 
set TACK and any other FCB fields relevant 
to the new access method interface. 



Record- Oriented I/O Control Block s 

Record Dope Vector (RDV) : The record dope 
vector is an eight-byte block that 
describes the record variable. Its format 
depends on the type of statement and the 
associated options: 



Bytes 0-3: A (INTO/FROM area), cr 

A (POINTER variable) for SET 
option in READ statement, 
or 
A (tuffer) for LOCATE 
statement 

Byte 4: Reserved 

Bytes 5-7: Length of variable 
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String Dope Vector (SDV) : The address of 
the string dope vector is passed instead of 
that of the record dope vector to record 
I/O interface modules when the input or 
output of varying strings is requested. 
The string dope vector is an eight-byte 
block: 

Bytes 0-3: A (INTO/FROM string) 

Bytes 4-5: Maximum length of string 

Bytes 6-7: Current length of string 

(output) f undefined (input) 

Request Control Block : This eight-byte 
£lock contains the request codes, in the 
first four bytes, for various RECORD I/O 
operations and options. The format is 
defined in the BREQ field of the I/O con- 
trol block (IOCS). (See Section IV.) 



completed. If several operations are cut- 
standing (owing to the use of the EVENT 
option in I/O statements) , then one DECB is 
required for each operation. 

In order to meet these requirements, the 
PL/I open process allocates one or more I/O 
control blocks (IOCB) , which are subse- 
quently manipulated or increased in number 
as follows: 

DIRECT access (VISAM) : 

The IOCEs are created by IHEWITE. Only 
one IOCB is created at open tine; any 
others required are created when needed. 

SEQUENTIAL access (BSAM only) : 

All the required IOCBs are obtained at 
open time; an attempt to use more than 
those already in existence raises the 
ERROR condition. 



The additional four bytes which are con- 
tained in the compiler argument list are 
not copied into the IOCB. Each type of 
record-oriented I/O statement is repre- 
sented by one bit as follows: 

Bit number Statement + o ptions 

READ SET 

1 READ SET KEYTO 

2 READ SET KEY 

3 READ INTO 

*4 READ INTO KEYTO 

5 READ INTC KEY 

6 READ INTO KEY NOLOCK 

7 READ IGNORE 

8 READ INTO EVENT 

9 READ INTO KEYTO EVENT 

10 READ INTO KEY EVENT 

11 READ INTO KEY NOLOCK EVENT 

12 READ IGNORE EVENT 

13 WRITE FROM 

1M WRITE FROM KEYFRCM 

15 WRITE FROM EVENT 

16 WRITE FRGM KEYFRCM EVENT 

17 REWRITE 

18 REWRITE FROM 

19 REWRITE FROM KEY 

20 REWRITE FROW EVENT 

21 REWRITE FROM KEY EVENT 

22 LOCATE SET 

23 LOCATE SET KEYFROM 

24 DELETE 

25 DELETE KEY 

26 DELETE EVENT 

27 DELETE KEY EVENT 

28 UNLOCK KEY 
29-31 Reserved 

I/O Control Block (IOCB) : Record-oriented 
I/O employs several data management access 
methods that require that operation 
requests be provided with a special form of 
parameter list. This parameter list is 
termed the data event control block (DECB) . 
A DECB must be provided for each operation, 
but may be reused when the operation is 



The IOCB format for both these usages is 
described in Section IV. 

A number of IOCB fields exist in order 
to support the EVENT option. Since the 
cperaticn is split into two parts — 
initiation through the READ, WRITE, etc., 
statements, and completion by the WAIT 
statement — information regarding a parti- 
cular operation must be retained fcr use at 
the time of completion. For example, if a 
hidden buffer is employed for a RE-AD, the 
address of the user's record variable must 
be retained for subsequent movement from 
the buffer to the specified area. 



IOCB 



SEQUENTIAL Usage : Manipulation of 



IOCEs for SEQUENTIAL usage is required only 
fcr BSAM, which is employed for CONSECUTIVE 
UNBUFFERED files. 

P. number of IOCBs is allocated during the 
cpen process by means of the GETPOOL macro; 
subsequent selection of a particular IOCB 
is made by a routine similar to that pro- 
vided by the GETBUF macro. Whenever an 
IOCB is selected, it is entered into the 
chain of IOCBs currently in use; the TIAB 
field in the FCB points to the last IOCE to 
be used. 

The chain of IOCBs is required because 
all I/O operations must be checked in the 
crder in which they were issued. This 
chain is principally required for the EVENT 
cpticn, which can cause more than one I/O 
operation to ne outstanding at a given 
time. 

The number of IOCBs (buffers) allocated 
is determined by the DDEF subparameter NCR. 
The value of this subparameter should not 
be greater than 1 unless the EVENT option 
is employed; if NCP is unspecified a 
default of 1 is used. If NCP = 1, there is 
then one IOCB and one channel program. 
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The size of each IOCB varies, depending 
upon the organization and the record format 
of the data set. Section IV specifies the 
size requirements. 

IOCB — DIRECT Usage : Manipulation of 
IOCBs for DIRECT usage is required for 
VISAM. One IOCB is allocated to a DIRECT 
file when it is opened; subsequent selec- 
tion of an IOCB is performed by IHEWITE. 
unlike SEQUENTIAL access, the order of I/O 
operation is not normally considered. 

The chain of IOCBs for a given file is 
| anchored in the TLAB field in the FCB. The 
chain is released when the file is closed. 



ACCESS METHOD INTERFACES 

This section describes how the PL/I 
Library relates to the various data manage- 
ment access methods for record-oriented 
I/O, and gives details of the support 
required from the library for various PL/I 
features. This information supplements, 
but does not replace, that provided in the 
module summaries and in the module listing 
prefaces . 

CONSECUTIVE Data Sets 

The access methods employed for this 
organization are: 

1. QSAM or VSAM 

2. BSAM 

The choice between them is governed by the 
file attributes BUFFERED and UNBUFFERED: 

BUFFERED: QSAM or VSAM 

UNBUFFERED: BSAM (F,V f U> (No automatic 
blocking or deblocking) 

The choice between VSAM and QSAM for BUF- 
FERED files is determined by the data set 
organization, as specified in the DDEF. 

QSAM/VSAM dHEWlTG) : A BUFFERED file is 
specified in order to take advantage of 
automatic transmission, process-time over- 
lap, and blocking or deblocking of records. 
All record formats may be handled. 

The locate mode of the GET and PUT 
macros is employed with this access method 
for the following purposes: 

1. To support the SET option in READ and 
LOCATE statements, and to support the 
REWRITE statement without the FROM 
option. Module IHEWITG allocates the 
data management buffers for the rec- 
ords, and sets the pointer appropri- 
ately. The first byte of a buffer is 
always on a doubleword boundary; for 



blocked records, the user must ensure 
that his alignment requirements are 
met by adjusting the lengths of the 
variables being transmitted. 

2. To remove or add V- format control 

bytes if the INTO or FROM option is 
employed* 

Closing a data set being created by QSAM 
may cause output records to be written by 
the close executor. If an error occurs 
during the closing process, the system uses 
the ABEND macro to end the PL/ I program. 

BSAM (IHEWITB) : An UNBUFFERED file is spe- 
cified in order to avoid the space and time 
overheads of intermediate buffers when 
transmitting records. Overlap of transmis- 
sion and processing time is only available 
if the EVENT option is employed. 

BSAM requires the use of DECBs to com- 
municate information regarding each I/O 
operation requested of it; see "I/O Control 
Block CIOCB) f and System Control Blocks PLM 
for details of the DECB. IHEWITB selects 
an IOCB (which contains a DECB area) from 
the IOCB (buffer) pool for each input/ 
output operation. The IOCBs used for CON- 
SECUTIVE organization do not contain hidden 
buffers, except when V-format records are 
employed. Hidden buffers are used in this 
case so that the V-format control bytes can 
be eliminated from the record before the 
data is moved into the record variable. 
If, however, the data set consists of F- 
format unblocked records, and the size of a 
record variable is less than the fixed size 
of data set records, a temporary buffer 
area is dynamically obtained. The use of a 
temporary buffer area for input prevents 
the destruction of data following the INTO 
area; for output, it prevents triggering of 
the fetch- protect interrupt. 



INDEXED Data Sets 

The access method employed for this 
organization is VISAM. 

All usage of INDEXED data sets requires the 
presence of buffers, even though the file 
is UNBUFFERED or DIRECT. 

VISAM SEQUENTIAL Access (IHEWITD and IHE- 
WITN) : SEQUENTIAL creation and access of 
INDEXED data sets is performed by IHEWITD 
for format-F records, and by IHEWITN for 
format-V records. Creation requires that 
keys be presented in ascending collating 
sequence. The sequence is checked by the 
library before the PUT macro is executed, 
in order to synchronize a given WRITE 
statement with the raising of the duplicate 
KEY condition. This arrangement is neces- 
sary because, since PUT LOCATE is employed. 
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VISAM would normally raise the condition 
only on the subsequent PUT operation • 

For records with embedded keys f when a 
WRITE statement with a KEYFROM string 
shorter than the key length, or a LOCATE 
statement, is executed, the KEYFROM string 
is placed in an area addressed by TPKA in 
the FCB. In the next operation on the file 
after a LOCATE statement (including a CLOSE 
statement) , the KEYFROM string is compared 
with the key embedded in the data in the 
buffer. If they are unequal, the KEY con- 
dition is raised. On normal return from 
the on-unit, control passes to the next 
statement in the program (that is, the one 
following that which caused the KEY condi- 
tion to be raised) . The process of compar- 
ing keys and raising the KEY condition is 
repeated in successive statements that re- 
fer to the file until the embedded key has 
been changed. (After a LOCATE statement 
has been executed, no further operations 
are possible on the file until the record 
has been transmitted; for records with 
embedded keys, this cannot occur until the 
KEYFROM string matches the embedded key.) 

When a file is closed implicitly (that 
is , on termination of a PL/I program) , the 
KEYFROM string overwrites the key part of 
the record in the buffer, and the record is 
written onto the data set. If the KEYFROM 
string is not identical with the embedded 
key, a message is printed on the task's 
SYSOOT. 

To support the REWRITE statement without 
the FROM option, the key is saved on execu- 
tion of a READ statement with the SET 
option. When the REWRITE statement is 
executed, if the embedded key is the same 
as the saved key, a WRITE (type KS) macro 
instruction is issued. If the key has 
changed, the WRITE macro is not issued and 
the KEY (specification) condition is 
raised. 

To support the DELETE statement without 
the KEY option, the DELREC macro instruc- 
tion is used. 

If the file has the KEYED attribute, and 
the mode is INPUT or UPDATE, the VISAM SETL 
function is required in order to reposition 
the indexes. The parameters for the SETL 
macro are such that, for unblocked records, 
the recorded key is transmitted as well as 
the data record. For a READ statement, if 
the KEY string is shorter than the key 
length, the string is placed in an area 
addressed by TPKA in the FCB. If the file 



is not KEYED (indicating that the KEY 
option will not be employed) , the VISAM 
SETL routine is not loaded during the open 
process . 

Since buffers are employed, truncation 
or padding of records is performed during 
the move between the buffer and the record 
variable. Padding bytes are undefined in 
value. 

Closing a data set being created or 
updated by VISAM may cause output records 
to be written. If an error occurs, output 
entry to the SYNAD routine is prevented by 
the close process having cleared the DCB- 
SYNAD field before issuing the CLOSE macro. 
The system uses the ABEND macro to termi- 
nate the PL/ I program. 

VISAM DIRECT Access (IHEWITE and IHEWITM) : 
Direct access of INDEXED files is performed 
by module IHEWITE for format-F records, and 
by IHEWITM for format-V records. 

VISAM requires the use of DECBs to com- 
municate information reqarding each I/O 
operation requested of it; see ■ I/O Control 
Block (IOCB)', earlier in this section, for 
details of the DECB and its use in VISAM. 

Since a VISAM may destroy the contents 
of the key and record fields when adding 
new records to the data set, the key value 
is moved into the buffer before VISAM is 
invoked. Truncation or padding of the 
character-string key to conform to the KEY- 
LEN specification is performed during the 
move. 

A DELETE statement is implemented by the 
DELREC macro instruction. 



THE WAIT STATEMENT 

Under TSS/360, the WAIT statement is 
supported for awaiting the completion of 
I/O events. When the WAIT statement is 
executed, compiled code calls the library 
module IHEWOSW, passing the addresses of 
the event variables associated with the 
statement. If the required number of 
events have been completed, return is made 
to the user; if not, CHECK macros are 
issued to await the completion of the 
necessary I/O operations. 

Since QSAM, VSAM, and VISAM I/O opera- 
tions are checked in line (i.e., as they 
are issued) , and are therefore complete 
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before the user receives control after hav- 
ing issued them, a WAIT statement issued 
for an I/O operation performed by any of 
these access methods will always find the 
event completed; only in the case of a BSAM 
operation may the WAIT statement find the 
event incomplete, and therefore be required 
to await completion. 



1. Allocation of storage for the PRV. 
(See 'Communications Conventions' in 
this section. ) 

2. Initial allocation of LWS . 

3. Passing the address of the library 
error-handling subroutine (IHEWERR) , 
which assumes control when a program 
interruption occurs, to the system. 



PL/I OBJECT PROGRAM MANAGEMENT 



INTRODUCTION 



Block Housekeeping: 

Epilogues 



Prologues and 



The PL/I Library provides facilities for 
the dynamic management of PL/I programs. 
This involves: 

1. Program management : Housekeeping at 
the beginning and end of a program or 
at entry to and exit from a block. 

2. Storage management : Allocation and 
freeing of storage for automatic and 
controlled variables, ancl for list 
processing. 

This section describes the requirements 
for these facilities and their implementa- 
tion by the library. With th€! exceptions 
of the compiler optimization routine and 
storage management for list processing, all 
the functions described are performed by 
module IHEWSAP, whose entry points are 
listed in Figure 15; full details are given 
in Section III. 



Prologues and epilogues are the routines 
executed on entry to and exit from a PL/I 
procedure or begin block. The library sub- 
routines contain those sections that are 
common to all prologues and epilogues. The 
functions of the library prologue subrou- 
tine are: 

1. To preserve the environment of the 
invoking block. 

2. To obtain and initialize automatic 
storage for the block. 

3. To provide chaining mechanisms to 
enable the progress of the program tc 
be traced. A detailed description of 
the chaining mechanisms employed is 
provided below. 



The main functions of the epilogue sub- 
routine are: 



Program Initialization 

Certain functions must be carried out on 
entry to a PL/I program before? the PL/I 
main procedure is given control. One of 
the library program-initialization subrou- 
tines is always given control on entry to 
the program. Its functions are: 



Entry point 
IHESADA 
IHESADB 
IHESACD 
IHESADE 
IHESADF 
IHESAFA 
IHESAFB 
IHESAFC 
IHESAFB 
IHESAFF 
IHESAFQ 
IHESAPA-, 

ihesapeJ 
ihesapcj 

IHESAPD 7 

IHESARA 

IHESARC 



Functio n 
Get BSA 
Get VDA 

Get controlled variable 
Get LWS 

Get library VDA 
END 

RETURN 
GO TO 

Free VEA/Free LWS 
Free controlled variable 
Abnormal program termination 

Program initialization 



Environment modification 
Setting of return code 



Figure 15. IHEWSAP Entry Points 



1. To release storage for the blcck. 

2. To recover the environment of the 
invoking block before returning con- 
trol to it. 



Stc rag e Man agement 

In TSS/360, virtual storage is obtained 
cr freed by using the GETMAIN and FREEMAIN 
macros. The library assumes responsibility 
for obtaining and freeing storage in this 
way in order to provide an interface 
between compiled code and the control 
program* 

There are three types of dynamic storage 
in PL/I: controlled, automatic, and based. 
Eased storage is discussed in 'List Proces- 
sing: Storage Management* . 



Time Sharing System Facilities 

The following facilities are provided by 
TSS/360. (See IBM Syst em/360 Time S haring 
System: Assembler User Macro 
Instructions. ) 
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SPEC macro instruction: 



States the address 



of an interrupt handling routine with entry 
point IHEERRA, and indicates that it is to 
handle program interrupt types 1 to 13, and 
15. 

SIR macro instruction : Directs control of 
program interrupt handling to a routine 
specified in a SPEC macro instruction, 

DIR macro instruction : Deletes control 
references to the routine previously 
defined to the system by tne SIR macro 
instruction. 



GATWR macro instruction: 



Used to send cer- 



tain error messages to the user's SYSOUT. 

GETMAIN macro instruction : Requests the 
allocation of a contiguous block of virtual 
storage to the user's task. 

FREEKAIN macro instruction : Releases a 
specified virtual storage area from a 
user's task. 



a GC TO statement specifying a label in 
that block is executed. 

When a block is entered recursively, a 
new ESA is created for the invoked block. 
The address of the DSA associated with the 
previous invocation of that block is stored 
in the display field of the new DSA. This 
address is already stored in the appropri- 
ate pseudo-register, where it is now- 
replaced by the address of the new DSA. 
When this latest invocation is finished, 
the new DSA is freed and the address of the 
previous DSA is restored to the appropriate 
pseudo- register. 



When ther 
label in a r 
variable, a 
block contai 
is accomplis 
count, which 
count field 
Ihe current 
in a pseudo 
cne each tim 



e is a GO TO statement tc a 
ecursive block or to a label 
unique means of identifying the 
ning the label is needed. This 
hed by means of an invocation 
is stored in the invccation- 
in the DSA during the prologue, 
invocation count is contained 
register and is increased by 
e a DSA is obtained. 



AUTOMATIC STORAGE: 



STORAGE KANAGEWENT 



Two types cf automatic storage area are 
needed to implement the functions described 
above. These are: 

1. The storage area associated with the 
execution of a PL/I block, known as a 
dynamic storage area (DSA) . 

2. The storage area mainly used for auto- 
matic variables whose extents are 
unknown at compile time, known as a 
variable data area (VDA). 



Variable Data Area CVDA) 

A variable data area is a special type 
of automatic storage area used for 
variables whcse extents are not kncwn at 
compile time. This storage area is asso- 
ciated with the storage obtained for a par- 
ticular block. The only housekeeping 
necessary is that which provides a means of 
identif icaticn of the type of storage area 
and a method of associating it with a par- 
ticular block fcr epilogue purposes. 



Each type of storage area is identified by 
flags set in the first byte. These flags 
also indicate the existence of certain 
optional entries in the storage area. The 
flag patterns are shown in Section IV. 



Dynamic Storage Area (DSA) 

This area, always associated with the 
execution cf a PL/I blcck, is used to re- 
cord the progress and environment of a pro- 
gram- It also contains space for AUTOMATIC 
variables declared in the block and for 
various optional entries. The minimum size 
of a DSA is 100 bytes. The format is 
described in Section IV. 

The address of the DSA associated with a 
particular block is held in a pseudo- 
register. Hence there is a pseudo-register 
for each block; the grcup cf these pseudo- 
registers is known as the display . The 
address contained in a display pseudo- 
register can be used to identify the DSA 
associated with a non-recursive block when 



VDAs are used for three other purposes: 

1. Temporary storage fcr library modules. 
These areas are only distinguishable 
from an ordinary VDA by the flag byte. 
This is tc allow them to be freed on a 
GO TO, as described in the example in 
•DSA Chain' under 'Block 
Housekeeping* . 

2. The PRV and primary LWS are contained 
in a VDA, known as the PRV VDA, which 
is chained back to the external save 
area. 

3. Secondary LWS is contained in a spe- 
cial library workspace VDA. 

The formats of the VDA, PRV VDA, and LWS 
VDA are shown in Section IV. 



Library Workspace (LWS) 

The housekeeping associated with library 
workspace can be divided into two parts: • 
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1. The identification of the area needed 
as library workspace, and chaining 
this to a previous allocation of auto- 
matic storage and to any previous 
library workspace. 

2. The updating of the psettdo- registers 
pointing at the various areas in 
library workspace. 

The first allocation of LWS is contained 
in the PRV VDA; subsequent allocations are 
contained in the LWS VDA. The pseudo- 
register IHEQLSA always contains the 
address of the current LWS. Save areas 
within LWS are indicated thus: 

1. The address of each save area is held 
in a pseudo-register. 

2. The beginning of each save area is 
indicated by X^O' in the first byte. 
(A DSA can often be readily distin- 
guished from a save area in LWS by the 
presence of X^ 1 to X'F" in its first 
half byte. Section IV includes the 
format of the first byte of the DSA.) 

Allocation and Freeing of Automatic Storage 

This section describes the methods of 
controlling the allocation and freeing of 
automatic storage for VDAs f DSAs and secon- 
dary LWS. 

To minimize the number of system 
requests (i.e., GETMAINs) necessary to 
obtain automatic storage, a page of storage 
is obtained every time a GET MAIN is issued. 
Areas are allocated by the library from 
this page (or block) as required until a 
request is made that is too big to be sat- 
isfied from the remaining storage in the 
block, then another page is obtained. So 
that a check can be made as to whether the 
amount of storage remaining in a block is 
sufficient to meet an allocation, a record 
of the amount is stored in the block. When 
a storage area is freed, its length is 
added to the available length in the block. 
When the available length equals the total 
length of the block, the block is returned 
to the supervisor. 

Since storage areas are released in the 
reverse order to their allocation, a chain- 
back mechanism, with a pointer to the last 
member of the chain, is provided. 

Initially, sixteen pages of storage are 
allocated for the PRV VDA. When further 
requests are made for storage, they are 
satisfied by allocations from the remaining 
storage of this block. When a request can- 
not be satisfied, another sixteen pages are 
obtained by means of a GETMAIN macro. 
These blocks are chained to the existing 
blocks by the free-storage chain. (See 
Figure 16.) 



In any block that contains unallocated 
storage (that is, contains free storage), 
the first four words of the unallocated 
storage are used for control purposes: 

1st word : length (in bytes) of the 
unallocated storage for that block 
(excluding the four control words) 

2nd word : Block length 

3rd word : A (Free storage length in 
previous block) 

4th word : A (Free storage length of 
following block) 

The first and last blocks require a 
slightly different usage: 

First block : Uses the free-storage pseudo- 
register IHEQSFC in the chaining forward 
and tack: 

1. IHEQSFC contains A (Free-storage 
length of first block) . 

2. 3rd word of block contains (A (IHEQSFC) 
- 12) , which is a dummy free-storage 
length in the PRV. 

Last block : 4th word contains 

When a request for storage is received, 
a search of the free-storage lengths, 
starting from the first, is made. If a 
free-storage length equal to or greater 
than the length requested is found, the 
request is satisfied from that block. The 
free-storage length and pointers are 
adjusted, as are the appropriate pointers 
in the blocks on either side. 

When storage is freed, the pointers are 
adjusted, and the free-storage field in the 
corresponding block is updated. If the 
page becomes available, it is freed by 
issuing a FREEMAIN macro, and the free- 
storage chain pointers are adjusted 
accordingly. 



CONTROLLED STORAGE: STORAGE MANAGEMENT 

Controlled storage is* used for con- 
trolled variables only? it is requested by 
the ALLOCATE statement and freed by the 
FREE statement. 

Allocation of a particular controlled 
variable may occur a number of times. 
Since the latest allocation is always the 
cne to be used it is convenient to have a 
pseudo-register pointing at it; this 
pseudo-register is sometimes referred to as 
an 'anchor word*. Each allocation is 
chained tack to the previous allocation so 
that the pseudo-register can be updated 
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Figure 16. Structure of tne Free-Storage Chain fcr Autoiratic Variables 



when the current allocation is freed 
(Figure 17). The length of each allocation 
is recorded in the fullword field following 
the chain-back address. The length of tne 
data is 12 bytes less than the length of 
the allocation. The Task Invocation Count 
is held in the TIC field. 

When there is no allocation, the con- 
tents of the pseudo-register are zero. 
Each allocation points to the previous 



allocation, the pointer being zero in the 
first allocation, ^hich is at the Lett err of 
the stack. Thus the various allocations of 
a particular controlled variable beccue 
part of a push-down (ALLOCATE) pop-up 
(FREE) list. 

When a request is made to storage nan- 
agenient for a new allocation, it is ser- 
viced by issuing a GETMAIN iracro. Twelve 
bytes are added to the length requested, 




ALLOCATION 2 
T „_ 1 

TIC | PR offset 

X 



I- 

I Chain-back address 



Length 



ALLOCATION 1 

r T . 1 

| TIC | PR cffset | 
j. ± ., 

-i I I 

| j. _ ., 

| | Length | 

l — H .... ... ^ 

i i 

! I 

1 I 
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Figure 17. Storage Allocation for a Controlled Variable 



26 



Page of GY28-2052-0 # Issued September 15, 1970 by TNL GN28-3162 



for control purposes, and this new length 
| is rounded up to a page. The length 
field contains the actual length requested. 
The pseudo-register is updated and points 
to word four of the area. When a request 
is made to storage management to free an 
allocation, it is serviced by updating the 
pseudo-register and issuing a FREEMAIN 
macro . 



LIST PROCESSING: STORAGE MANAGEMENT 

This section describes the functions of 
module IHEWLSP, which controls the alloca- 
tion and freeing of storage for the PL/I 
list-processing facility. The functions 
involved are: 

1. Allocation and freeing of system 
storage for based variables, 

2. Allocation and freeing of storage for 
based variables in programmer-defined 
areas (area variables) . 

3. Assignments between area variables. 



System Storage for Based Variables 

Storage for based variables is allocated 
and freed in a similar manner to controlled 
storage, but it is not stacked since each 
generation is associated with a particular 
pointer value: reference may be made to 
any current generation of based storage by 
associating the appropriate pointer value 
with the name of the based variable. A 
request for a new generation of based 
storage is serviced by issuing a GETMAIN 
macro, and storage is freed by the FREEMAIN 
macro. Based storage is allocated only in 
multiples of eight bytes: the sum of the 
length of the variable and its offset from 
a doubleword boundary is rounded up to a 
multiple of eight bytes. All based storage 
allocated in a PL/I program is freed at the 
end of the PL/I program. 



The AREA Attribute 

The AREA attribute enables a programmer 
to define a block of storage Can area vari- 
able) in which he can collect and make 
reference to based data. Space within the 
area variable is requested and released by 
ALLOCATE and FREE statements that include 
an IN Carea-variable) claase. Reference 
can be made to a based variable contained 
by an area variable just as if the based 
variable were in virtual storage. The con- 
tents of one area variable can be assigned 
to another area variable, and an area vari- 
able can be handled as a single data item 
in input/ output operations. 



The Area Variable 

The format of the area variable is shown 
in Figure 18. The start of the area is 
aligned on a doubleword boundary. The 
first four fullwords are used for control 
information, the remainder of the area 
being the storage requested by the pro- 
grammer in declaring the area variable. 
The portion of the area that has been allo- 
cated to based variables is termed the 
extent . When storage is allocated to an 
area variable, its length is set in the 
last three bytes of the first word, and the 
second word (offset of end of extent) is 
set to zero. 



Area Storage for Based Variables 

Storage for based variables within an 
area variable is allocated only in mul- 
tiples of eight bytes? each such allocation 
is termed an element . The first request 
for storage for a based variable is satis- 
fied by the allocation of the appropriate 
number of bytes starting at the beginning 
of the unused space; the offset of the end 
cf this allocation is set in the second 
word of the area variable, which now points 
to the first available doubleword of unused 
storage. Providing no storage has been 
freed, further requests are met by further 
contiguous allocations from the unused 
space, the offset of the end of the extent 
being updated each time. 



If the last allocation of the extent is 
freed, the offset in the second word of the 
AREA variable is reduced. However, if 
allocations other than the last in the 
extent are freed, the extent is not 
reduced: spaces, termed free elements , are 
left. The length of each free element is 
set in its first fullword, and a pointer to 
the next smaller free element (in the form 
of an offset from the start of the area 
variable) is set in the second word. If 
there are no smaller free elements, the 
second word of the free element points to 
the fourth word of the area variable, which 
is set to zero. The chain of free elements 
is termed the free list , and is anchored in 
the third word of the area variable, which 
contains the offset of the largest free 
element. When an area variable contains a 
free list, the first bit of the flag byte 
is set tc 1. 



Whenever storage in an area variable is 
to be allocated to a based variable, the 
free list is searched for the smallest ele- 
ment that will contain the based variable. 
If no free element is large enough, space 
is allocated from the unused part of the 
area. If this, also, is too small, the 
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Flags 



"I— 

l 

_JL_ 



Length cf AFEA variable 



Offset of End of Extent 



Cffset of Largest Free Element 



Zero if iree List 



Allocated 



Length of Free Element 

Offset of next smaller Free Element 



Cffset of next snaller Free Element 



Allocated 



~* 



Free 
Element 




Free 
Element 



i 



~* 



Extent 



i 



Not Allocated 



figure 18. Format ot Area Variatie 



AREA condition is raised- When an element 
is freed, it is placed in the free list 
according to its size. If it is contiguous 
with another free element, tne two are 
merged and included in the free list as a 
single eleirent« If the last element in the 
extent is freed, the extent is reduced and 
the element is net placed in the free list. 



Ass ignment Between Area Variab les 

T when the contents of area variatie A are 
assigned to area varia&ie B f the current 
extent and the control words (except the 
length of A) are copied into B. If the 

length of B is less than the extent of A f 

the AREA condition is raised- 



The AREA Condition 

If an on- unit is entered when the AREA 
condition is raised during the execution of 
an ALLOCATE statement, the ALLOCATE state- 
ment is executed again after the on-unit 
has been terminated normally. The return 
address passed by compiled code is stored 
in the library communications area CWREA) 
before the on-unit is entered. On normal 
termination of the on-unit f IHEWERR returns 
control to the address in WRE£ . 

If the ARE£ ccnditicn is raised during 
the execution of an assignment statement, 
the statement is not executed again. 



PROGRAM MANAGEMENT 

Initialization of a PL/I Program 

On entry tc a PL/I program ( one of the 
library initialization subroutines (IHESA- 
PA f IHESAPB, IHESAPC, and IHESAPD) is 
always given ccntrol by the supervisor; the 
entry point that is used depends on the 
level of compiler optimization required and 
on whether the PL/I program is called from 
an assembler- language routine. The ini- 
tialization routine first obtains one page 
of virtual storage for the PRV VDA. 



zeros the 
egisters, and 
tructions nam- 
ESAPA and IHE- 
e statement 
be passed tc 
e initializa- 
points at a 
ss of the SDV 



The initialization routine 
PRV, sets up the LWS pseudo-r 
issues SPEC and SIR macro ins 
ing IHEWERR. In addition, Ifl 
SAPC enable a parameter on th 
invoking the PL/I program to 
the program. On exit from th 
tion subroutine, register RA 
location containing the addre 
of the parameter. 

Termination of a PI/I Program 



Normal Termination : Normal termination of 
a PL/I procedure is achieved by an END or 
RETURN statement, either of T *hich involves 
releasing the automatic storage associated 
with the procedure. If a request is made 
to free a DSA which would entail freeing 
the DSA for the main procedure, IHESAFA 
(END) or IHESAFB (RETURN) raises the FINISH 
condition and the program branches to the 
error-handling subroutine (IHEWERR). If 
and when this subroutine returns control, 
IHESAFA or IHESAFE causes all opened files 
to be closed (by calling the library 
implicit-close subroutine). Subsequently 
all automatic storage, including the PRV 
VDA, is freed. IHESARC is then called to 
set the return code and return control to 
the supervisor. 

Abnormal Termination : A PL/I program is 
considered to terminate abnormally when the 
FINISH condition is raised by any means 



other than a 
statement (e 
error occurs 
is raised) . 
the ERROR or 
error-handli 
IHESAFQ, whi 
the manner d 
to the super 
+ any return 
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RETURN, END, or SIGNAL FINISH 
g., when an execution-time 
such that the ERROR condition 
If there is not a GO TO out of 
FINISH on-unit (if any) , the 
ng subroutine (IHEWERR) calls 
ch closes all the open files in 
escribed above; IHESAFQ returns 
visor with a return cede (2000 
cede already set (modulo 



GO TO Statements 

In Pi/I, a GO TC statement not only 
involves the transfer of control tc a par- 
ticular label in a block but also requires 
the termination of contained blocks. The 
housekeeping requirements for this are: 

1. A return address. 

2. A means of identifying the automatic 
storage associated with the block tc 
be nade current. 

Identification of the appropriate storage 
depends on whether the environment is 
recursive or ncn-recursive : 

Recursive : A count (the invocation 
count) is kept of the number of times 
any block is entered; this count can be 
used to identify the storage for a par- 
ticular invocation. 

Ncn-recursive : The address of the 
storage for each block is required. 

On-Units and Entry-Parameter Procedures 

If, in a recursive environment, the pro- 
gram enters (1) an on-unit, cr (2) a proce- 
dure obtained by calling an entry parame- 
ter, that environment must be restored to 
the state that existed when the ON state- 
ment was executed or the entry parameter 
was passed. Similarly, at the exit from 
the cn-unit cr the entry-parameter proce- 
dure, the environment must be restored tc 
its former state. 

If the on-unit or entry-parameter proce- 
dure refers to automatic data in encompas- 
sing blocks, these references will be to 
the generations that existed when the ON 
statement was executed or the entry parame- 
ter was passed. These will not necessarily 
be the latest generations. 

The correct environment is obtained by 
restoring the display to what it was at the 
time the ON statement was executed or the 
entry parameter passed. 

When an on-unit is to be entered, the 
library error-handling subroutine calls 
IHES&RA and passes it: 
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1. The address of the on-unit. 

2. The invocation count of the DSA asso- 
ciated with the procedure containing 
the ON statement. 

When an entry- parameter procedure is to 
be called, compiled code tranches to IHE- 
SARA and passes its 

1. The address of the called procedure. 

2. The invocation count of the passing 
procedure. 

The state cf the display at the time of 
passing is determined by examining the DSAs 
of active blocks invoked before the passing 
procedure. The display is modified and 
control is transferred to the called 
procedure. 

Before an cn-unit or an entry-parameter 
DSA is freed, the display is restored, in a 
similar manner to that described above, to 
the state it had immediately before the 
on-unit was entered or the entry-parameter 
procedure was called. 



Block Housekeeping 

The chaining of automatic storage areas 
is required both for housekeeping purposes 
and for storage management. In general, 
both these functions are satisfied by the 
automatic storage area chain (called the 
DSA chain or 'run time stack'). When a 
library module is entered, an offshoot of 
the DSA chain, known as the save-area 
chain, may be formed. 



DSA Chain ; The DSA chain consists of the 
external save area, PRV VDA, DSAs and VDAs. 
DSAs are added to the chain as procedures 
and blocks are entered. VDAs are added to 
the chain after the DSA of the block in 
which they are required. The pseudo- 
register IHEQSLA is always set to point at 
the last allocation in the chain. Initial- 
ly it points at the PRV VDA. Register DR 
always points to the current save area. 

Consider a sample program. Successive 
areas are added to the chain thus: 

1. PRV VDA 

2. DSA (Wain procedure) 

3. DSA (Procedure) 

4. DSA (Begin block) 

At this stage the storage map is as 
shown in Figure 19. If the begin block 
required a VDA this would be added to the 
end of the chain. Figure 20 shows an 
example in which the begin block required 
two VDAs. If the program now executes: 
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Figure 19. Example of DSA Chain 

1. A n END statement : The storage in the 
chain is released, starting with the 
area pointed at by IHEQSLA and finish- 
ing when the current DSA has been 
released. This leaves the chain with 
items 1, 2 and 3 only. 

2. A RETURN statemen t: All areas up to 
and including the immediately encom- 
passing procedure DSA are released, 
leaving only items 1 and 2. 

It is also possible to release the last VDA 
in a chain without releasing any other 
areas, by freeing the area pointed at by 

IHEQSLA. 

If a GO TC statement referring to a 
label in the main procedure had been 
executed when the situation was as shown in 
Figure 20, then either the invocation count 
cr the display of the main procedure would 
be passed to the library subroutine (IHE- 
SAFC) . This would then search back up the 
chain until it found the DSA with that 
invocation count or display, and then make 
this DSA current. It would then free: 
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Figure 20. Continuation of the DSA Chain 



1. All areas up to and including the DSA 
allocated after the DSA to be made 
current. 



2. Any library VDAs or LWS between the 

DSA to be made current and the follow- 
ing DSA. A VDA used by the library is 
distinguished from one used by com- 
piled code by the flags in the first 
byte. (See Section IV.) 

Save-Area Chain : When a PI/I tlock calls a 
PL/I Library subroutine, the save area 
passed is that in the ESA for that block. 
If the library routine calls a lower-level 
library routine, the save area passed is 
that of the appropriate level in LWS. Thus 
a save-area chain is built up as an off- 
shoot of the DSA chain. (See Figure 21 •> 
Normally the save-area chain anwinds itself 
as control returns up through the levels? 
in the example, the chain would be left 
with DSAs l f 2 and 3 remaining. 

Treatment of Interruptions : ^hen a program 
interruption occurs in a subroutine 
(library or compiled code) , the library 
error-handling subroutine (IHEWERR) is 
entered and the address of the save area of 
that subroutine is set in register DR. 
(See Figure 22.) 
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Figure 21. Construction of the Save-area 
Chain 
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Figure 22. Structure of the DSA Chain When 
the Error-Handling Subroutine 
is Entered After a New LWS Has 
Eeen Obtained 
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IHEWERR calls IBESAEE, passing its own 
save area, to get a new LWS (LWS2) . If 
there is an on-unit corresponding with the 
interrupt condition , then, on return from 
IHESADE, IHEWERJR branches to IHESARA (which 
modifies the display) and passes it the 
save area LSA in LWS2. In turn, IHESARA 
tranches to the on-unit and passes it the 
same save area. The prologue for the on- 
unit then calls IHESADA to obtain a DSA. 
The DSA chain can now continue if required. 
(See Figure 23.) 



If there is no on-unit corresponding to 
the interrupt condition, standard system 
action is taken. (See 'Error and Interrupt 
Handling" . ) 

There are two possible ways of freeing 
the on-unit DSA: 

1. By a GO TO statement from the on-unit. 
If the GO TO is to a statement in a 
block associated with DSA 3, or earli- 
er, then the save-area chain can sim- 
ply be forgotten. Registers are re- 
stored from the DSA to become current. 
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Figure 23. Structure of the DSA chain When 
the On-Unit ESA is Attached 



2. By the on-unit issuing a request to 

storage management to free the on-unit 
DSA. When this is done, contrcl is 
returned to the error-handling subrou- 
tine at the point following that from 
which control was transferred to the 
on-unit. The error-handling subrou- 
tine restores DR in the normal way to 
point at LWE in LWS 1 and calls IHE- 
SAFD to free LWS 2. Control is then 
returned to the interrupted routine. 
In the example, the situation wculd 
now be as in Figure 21. 

Execution-time Optimization 

The compiler contains an optimization 
technique which minimizes the necessary 
housekeeping and provides faster execution 
of the prologue and epilogue. The techni- 
que can only be applied if the optimization 
option (OPT=01. Default) is specified for 
the compilation of the main procedure of a 
program. In this case, a 512-byte storage 
area is reserved at the end of primary LWS 
during initialization and pseudo-register 
IHEQSLA is set to the address of that save 
area. The pseudo-register IHEQLWF contains 
the address of the reserved area attached 
to the current LWS. A reserved area is 
released only when its associated LWS is 
released. 

Whenever a DSA is allocated for the 
innermost procedure or procedures (at the 
same depth) of a nest of procedures, the 
optimization technique will try to meet the 
requirement from the reserved area. If 
this is not possible (because the ESA 
requires more than 512 bytes) , the required 
storage is obtained in the standard way, 
using IHESADA. 

A DSA allocated in the reserved area, or 
a DSA allocated in STATIC storage at com- 
pile time, is identified by a 'one' in the 
first bit of the second byte. (See IBM 
System/3 60 Time Sharing System; PL/I Com- 
piler, Program logic Manual for a discus- 
sion of DSAs in STATIC storage.) 



ERROR AND INTERRUPT HANDLING 

The PL/I Library handles two types of 
conditions which cause interruption in the 
main flow of a program during execution: 

1. ON conditions, for which it is poss- 
ible to specify an on-unit. 

2. Execution error conditions, for which 
it is not possible to specify an 
on-unit. 

All the conditions are listed in IBM 
System/360 Time Sharing System: PL/I 
Reference Manual. 
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When any of the conditions occur, con- 
trol is passed to the library error han- 
dling module IHEWERR. Figure 24 describes 
the flow through this module. 

Except for program interruptions, which 
are discussed separately, all the condi- 
tions are raised by compiled code within 
the PL/I program. When the condition is 
recognized (e.g., an end-of-file return 
code from an attempt to read) , the PL/ I 
program enters IHEWERR at the entry point 
appropriate to the condition: 

IHEERRB: ON conditions 
IHEERRC: Non-ON conditions 
IHEERRD: CHECK and CONDITION 

If the condition is an ON condition, an 
internal error code is placed in the 
pseudo- register IHEQERR before IHEERRB is 
entered. The codes associated with each ON 
condition are given in Appendix D. 



STANDARD 'SYSTEM' ACTION 

If an ON condition is raised and there 
is a matching ON field foi the condition, 
IHEWERR passes control to the on-unit via 
IHESARA. Standard 'system 1 action is taken 
if: CI) an ON condition is raised and 
there is no matching ON field for the con- 
dition ; (2) the system action flag is set 
in the matching ON field; or (3) an execu- 
tion error or interrupt condition arises 
for which no specific ON condition is 
defined in PL/I (e.g., logarithm of a nega- 
tive number) . 

Standard 'system 1 action consists of 
printing an error message and, possibly , 
raising the ERROR condition. The error 
messages for the conditions are in 
PL/I Programmer's Guide . After the error 
message is printed, either processing con- 
tinues or the ERROR condition is raised, 
depending on the severity of the error. 
Raising the ERROR condition usually leads 
to the FINISH condition being raised. 
Unless there is a GO TO statement in the 
ERROR or FINISH unit, the program will 
return to command mode. 



When SNAP or PL/I 'system* action mes- 
sages must be printed, IHEWERR calls the 
library module IHEWESM, which contains the 
code needed to print SNAP and PL/I 'system' 
action messages. These library error han- 
dling modules contain error messages: 

IHEWERD: Data processing error messages. 

IHEWERE: Error messages other than those 
in the other error message 
modules. 



IHEWERI: Input/ output error messages for 
non-ON conditions. 



IHEWERO: Error messages for non-I/O ON 
conditions. 



IHEWERPs Error messages for I/O ON 
conditions. 

An action indicator is obtained during the 
process to determine whether normal proces- 
sing should continue if the ERROR condition 
is raised. The appropriate action is taken 
when the message has been printed as 
output. 



PROGRAM INTERRUPTIONS 

There are fifteen possible program 
interruptions in TSS? the PL/I Library 
handles all but significance. Seven of the 
interruptions are related'to computional ON 
conditions in PL/I? the remaining seven are 
treated as errors of a non-ON type Csee 
Figure 25) . 



The PL/I Library gains control of pro- 
gram interruptions by a SPEC macro instruc- 
tion f assembled as part of the GET PRV sub- 
routine of the IHEWSAP library module. The 
SPEC macro specifies which program inter- 
ruptions will be processed by the PL/ I 
Library (all except significance) and spec- 
ifies IHEERRA as the entry point of the 
error handling routine. As a result of the 
SPEC macro, an Interrupt Control Block 
CICB) is created, which contains the pro- 
gram interrupt mask and the address of 
IHEERRA. 

Then IHEWSAP issues a SIR macro, which 
specifies that IHEERRA is the entry point 
for the current interrupt handling routine 
Cby giving the name of the ICB associated 
with it) and sets the priority for the 
interrupt routine. 

Upon entry to the interrupt handling 
routine at IHEERRA, register is pointing 
to the fifth word in a 64 word entry used 
by the system (see Figure 26) . The 25thand 
26th words of the entry contain the old 
VPSW f which contains the interrupt code and 
the address in the PL/ I program where con- 
trol should return when the interrupt has 
been handled (see Figure 27) . 

To enable program interruptions that may 
occur during execution of the interrupt 
handling routines, IHEWERR follows this 
method of handling program interruptions: 
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Figure 24. Flow Tnrough the Error Handling Routine (IHEWERR) 
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Program Interruption 



PL/ 1 Condition 



Interrupt Code 
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protection 

addressing 

specification 

data 

fixed-joint overflow 

fixed-point divide 

decimal overflow 

decimal divide 

exponent overflow 

exponent underflow 

significance 
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net handled in PL/I 
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Figure 25. Program Interruptions and PL/I Conditions 



2. Bits 4 to 63 of the old VPSW in t.ie 

6 4 word entry are changed to 
contain the addr€.*ss of the 
appropriate entry point in IHE- 
WERR; control is returned to 
the supervisor. 

3. TSS assumes the interruption has been 

handled satisfactorily and 
transfers control to the new 
address in the old VPSW; thus 
it enters module IHEWERR again. 

Floating-point registers are saved in 
the library communication area, and the old 
VPSW is inspected to find the cause of the 
interruption . 



When fixed-point or decima.1 overflow 
interruptions occur, the SIZE condition may 
be raised. Therefore when one of these 
interruptions occurs, the pseudo-register 
IHEQERR must be inspected to see if the 
SIZE code has been set. Similarly, if any 
of the divide interruptions occurs, IHEQERR 
must be inspected to see if «che ZERODIVIDE 
code has been set. If it has, the condi- 
tion is disabled and control returns to the 
point of interruption. 



Certain very unusual circumstances may 
result in a program interruption occurring 
during the execution of IHEWERR or of one 
of the library modules called from it. For 
example, if the program destroys the PRV , 
or the DSA chain, or parts of library work- 
space, then it is likely that sonner or 
later a specification or addressing inter- 
ruption will occur. 

Under these circumstances, to prevent 
any attempt to re-enter IHEERRA on account 
of the second interruption, SPEC and SIR 



nacres are issued every time IHEWERR is 
entered. These macros provide that, in the 
event of an interruption, IHEWERR shall be 
entered at entry point IHEERRE. Similarly, 
a DIR rracro is issued at each exit point, 
to restore IHEERRA as the normal entry 
point for program interruptions during the 
execution of compiled code and library 
routines . 



When IHEERRE is entered, a message is 
printed on SYSOUT and the FINISH condition 

is raised. 



ON CONDITIONS 

The six classes of ON conditions defined 
in PL/I are shown in Figure 28 . To deal 
satisfactorily with the situation when any 
of these conditions arise, IHEWERR must: 



Recognize the condition. 



2. See if it is cinabled. 

3. If so, see if there is an on-unit for 

the condition. 

4. if there is an on-unit, transfer con- 
trol to IHESARA, which, after doing 
the necessary housekeeping, will 
transfer control to the on-unit. 

5. If no on-unit, take system action for 

tne condition, 

6. Return to the interrupted program or 
terminate, according to the provisions 
of the PL/ I language. 
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64 Word Entry 



ID 



Reg 



Reg 13 
I 



Forward Pointer to 
Next Entry 



Forward Page Pointer 



Pointer to Interrupt 
Conditions 



Length = 120 Bytes 



Register 13 

Unused 

Register 14 

Register 15 

Register 

Register 

Registers 

Not used 

Not used 

Old VPSW 

Floating Point Register 

Floating Point Register 2 

Floating Point Register 4 

Floating Point Register 6 

Task Monitor RSPRV Flag 

Pushdown Pointer from ISA 



Length =10 8 Eytes 
Backward Link 
Forward Link 



Register 14 (Return 
Linkage) 



Register 15 (Entry Point) 
Registers 0-12 



PSECT Address of Called 
Program 
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Program 

|. 

| Reserved 

L 



Register 







Register 


1 
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» 2- 


-12 
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used 







Word 
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2 
3 



10 

11 

12-22 

23 

24 

25-26 

27-28 

28-30 

31-32 

33-34 

35 

36 

37 
38 

39 

40 
41 
42-54 



55 



56-63 



64 



Figure 26. Information Available Upon 

Entry to an Interrupt Routine 
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Figure 27. Old Virtual Program Status Word 

In order to carry out these operations 

IHEWERR needs: 

1. Information passed when the error con- 
dition arises. 

2. Information set by compiled code in 
the DSA for each procedure. A two- 
word ON field is allocated in the DSA 
for this purpose. 
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Figure 28. PL/I ON Conditions 



Action by Compiled Code 

Action taken by compiled code in pre- 
paration for the possibility of a condition 
arising during execution is summarized 
here • 



Prologue : The prologue allocates space in 
the DSA for: 

1. Every ON statement in the block. 

2. Each ON condition disabled in the 
block. 

ON CHECK (identifier 1, ..... .identifier n) 

is interpreted as n ON statements. 

For each of the occurrences given above, 
the prologue stores information in the two 
words in the DSA ON field: 

1st word : Contains the error code for 
the condition and the address of data 
identifying the condition. This word is 
called the search word comparator . (See 
Figure 29.) 



h 



Contents of word 



(Byte 1| Bytes 2 to 4 



I/O 



CONDITION 



[CHECK (label) 



| | A (DCLCE) 

M (. .. -j 

| | A (CSECT) | 

•-j Error |- — -\ 

j [A (Symbol name £ j 

| j code | length) ( 

(CHECK (variable) | (A (Symbol table) | 

|.„ .„ _. ^ ,. _ „„ H 

| Others | | Nothing stored | 



Figure 29. Format of the Search Word 
Comparator 

2nd word : Byte 1: Bits 0, 1 and 4 are 
set as follows: 

Bit 0=0 Not the last ON field in the 

DSA 

= 1 Last ON field in the DSA 

Bit 1=1 Condition disabled 

Bit 4=1 Dummy ON field 

In the second word, either bit 1 or bit 
4 is set to 1. (See 'Prefix Options', 

below. ) 

ON Statement : When the ON statement is 
executed, compiled code stores information 
in the second word of the ON field: 

Eyte 1: 

Bit 2=0 SNAP not required 
= 1 SNAP required 

Bit 3 = Normal 

= 1 System action required 

Bit 4 = No longer dummy 

Eytes 2-4: A(on-unit) 

Prefix options : An ON field for an ON con- 
dition must be created by the prologue 
whenever: 

1. An ON statement is present in the 
block. 

2. An ON ccndition becomes disabled at 
any time during the execution of the 

block. 

3. CHECK is enabled within the block. 

This ON field is always set to dummy by the 
prologue. It is also set to disabled if: 

1. The condition is disabled by a prefix 
option in the block-header statement. 
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The condition is disabled by default 
and there is no enabling prefix option 
in the block-header statement, or 
within the block. The exceptions to 
this are CnECK, SIZE, STRINGRANGE, and 
SUBSCRIPTRANGE, which are dealt with 
as follows : 

CHECK: No ON fields are created if 
this condition is disabled by default. 

SIZE, STRINGRANGE, and SUBSCRIPTRANGE: 
If these conditions are disabled by 
default, flags are set in the flag 
byte cf the DSA as follows: 



SIZE: 

STRINGRANGE 

SUESCRIPTRANGE: 



bit 7=0 
bit 2=0 
bit 4=0 



Execution of an ON statement in the block 
causes removal of the dummy flag and inser- 
tion of the flags indicating the action 

required- It does not remove the disable 
flag if on. Execution of a REVERT state- 
ment causes reinstatement of the dummy 
flag. 

During execution of the block, statements 
may be executed which have disabling prefix 
options in them. Compiled code must be 
inserted before and after the statements 

to: 

1. Set the disabled flag before the 
statement. 

2. Restore the original flags after the 
statement. 

Similarly* to enable prefix options, com- 
piled code must: 

1. Set the disable flag off before the 
statement. 

2. Restore the original flags after the 
statement. 

Prefix options specified on outer blocks 
carry down into internal blocks. The 
implementation of these blocks should be as 
if the option had been explicit in each of 
them. 



Action by the Library 

When an ON condition arises during 
execution, IHEWERR gains control from one 

of the following: 

1. TSS/360 (program interruptions) 

2. Compiled code 

3- Another library module 



In case 1, the CN condition code 
required is determined by inspection of the 
program interrupt code in the old PSW . For 
cases 2 and 3, the ON condition code is 
passed in pseudo-register IHEQERR, except 
for the CHECK and CONDITION conditions, 
when a parameter list is used. From tnis 
code and information passed in the calling 
sequence, a search word is generated in 
library workspace in all three cases? the 
format of the search word is identical with 
that of the search word comparator (Figure 
29) . 



When the search word has been created, 
IHEWERR initiates a search through the 
chain of DSAs to determine the action to be 
taken- Each DSA is analyzed in turn, from 
the end cf the chain upwards towards the 
beginning. The search proceeds as fellows: 



1. 



Bit 6 of the flag byte of the first 
available DSA is tested to see if that 
DSA contains any ON fields. Then: 



a. No ON fields: 



If the DSA is the 



current DSA and the condition is 
SIZE, STRINGRANGE, or SUBSCRIP- 
TRANGE, the flag byte of this DSA 
is examined to see if the condition 

is disabled: 

Disabled : the program returns to 
the point of interruption. 

Not disabled : The DSA is ignored. 

If the condition is CHECK, the pro- 
gram returns to tne point cf 

interruption. 

k- ON fields : The first word of each 
ON field - the search word compara- 
tor - is compared with the search 
word to see if a match is found. 
If a match is found, the second 
word of the ON field in the DSA is 
tested to see what action is 
required. 

If the last ON field is reached before 
finding a match, then: 

a. If the DSA is the current DSA and 
the condition is SIZE, STRINGRANGE, 
or SUBSCRIPTRANGE, the correspond- 
ing flags in the DSA are tested. 

b. The error code is tested to see if 
the condition is CHECK. 



This may result in a return to the point 
of interrupt. If not, the next DSA is 
obtained and analyzed in the same way. 

If a match has been found, then the fol- 
lowing tests are made: 



2. 
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1. Is the condition disabled by a prefix 
option? (This test can only be app- 
lied when the matching Ch field is 
contained in the current DSA.) 

Disabled : No further processing in 
IHEWERR; the program returns to the 
point of interruption. 



Not disabled: 



Next test is made. 



BUILT-IN FUNCTIONS 

The two built-in functions, ONLOC, and 
ONCODE, may only be used in an on-unit; 
they provide environmental information 
associated with the raising of the latest 
ON condition. 



ONLOC 



2. Is the matching ON field a dummy ON 
field? 

Dummy ON field ; The field is ignored 
and the next DSA is obtained. 

No dummy ON field : Next test is made. 

3. Is SNAP action required? 

SNAP action required : A summary flow 
trace is written on the system output 
file. This output contains the ON- 
condition abbreviation and trace-back 
information identifying the procedures 
in the chain. The statement number 
may optionally be includcid. Each pro- 
cedure is identified by chaining back 
through the DSA chain until a proce- 
dure DSA is found and then using the 
contents of register BR in the appro- 
priate save area. The search ends 
when the chain-back reaches the 
external save area. An €*xairple of 
this output is given in IBM System/ 360 
Time Sharing System: PL/I Program- 
mer's Guide. 



SNAP action not required : 
normally . 



Proceed 



When a match has been found, and an on- 
unit address is given, then, to guard 
against the possibility of recursive use 
when control returns from the on-unit by 
means of a GO TO statement, a new block of 
library workspace is obtained. This LWS is 
added to the DSA chain as described earli- 
er, in ' PL/I Object Program Management 1 . 
In order to pass control to the on-unit, 
the recursion subroutine in IHEWSAP is 
called; this establishes the correct 
environment and then branches to the on- 
unit. Return from the on-unit may be made 
in one of two ways: 

1. On normal completion, control passes 
to IHEWERR, which returns to compiled 
code at the point following the 
instruction which caused the condition 
to be raised. 

2. Execution of a GO TO statement. In 
this case the GO TO subroutine C IHE- 
SAFC or IHETSAG) is entered to carry 
out the housekeeping described in 
•PL/I Object Program Management ' . 



An interrupt can occur that can cause 
entry to the on-unit in which ONLOC is spe- 
cified. If this happens, the ONLOC built- 
in function identifies the BCD name of the 
entry point of the procedure in which the 
interrupt occurs. 
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If ONIOC is specified outside an on- 
unit, a null string is inserted in the tar- 
get SDV. 

QNCQCE 

The ONCODE built-in function picks up a 
value from the WCNC field in the library 
communication area in LWS previously set by 
IHEWERR. This value is implementation- 
defined by the type of error that caused 
the interruption. It may be specified in 
any on-unit. If specified in an ERROR or 
FINISH unit, the ONCODE will be that of the 
error or condition that caused the ERROR or 
FINISH unit to be entered. 

If ONCODE is specified outside an on- 
unit, a unique ONCODE value (0) is 
returned. A list of ONCODEs and explana- 
tions of their use are given in IBM System/ 
360 Time Sharing System: PL/I Pr o grammer' s 
Guide. 



MIS CEL L ANEO U S TS3/3t ,0 INTERFACES 

One function of the PL/I Library is to 
provide a standard interface with TSS/360 
which can be utilized by compiled code. 
The implementation described here concerns 
support for PL/I language statements and 
functions with a TSS/360 interface that 
does not fall into one of the categories 
already discussed in this section. These 
are the PL/I statements DISPLAY, DELAY, 
STOP and EXIT, and the built-in functions 
TIME and DATE. 
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TSS/360 will enable the PL/I Library to 
issue macro instructions which support the 
above-mentioned statements and functions. 
The relationship is as follows: 



PL/I 



Macro Instruction 



DELAY STIMER 

TIME EBCDTIME 

DATE EBCDTIME 

DISPLAY GATWR, GATRD 

Thus, the library support for language fea- 
tures is as follows: 

DELAY 

the execution of the PL/I program is 
suspended for the required time. 

EXIT and STOP 

both these statements raise the FINISH 
condition and then cause normal ter- 
mination of the PL/I program. 

TIME 

the time of day is returned to the 
caller in the form HHMMSStht where: 

HH = hours (24-hour clock) 
MM = minutes 
SS = seconds 

tht = tenths, hundredths and thou- 
sandths of a second. (Since 
it is only possible to obtain 
the nearest hundreth under 
TSS/360, the last digit will 
always be zero. ) 
DATE 

the date is returned to the caller in 
the form YYMMDD where: 

YY = year 
MM = month 
DD = day 

DISPLAY 

a message may be written on SYSOUT 
with no interruption in execution or, 
if a reply is expected, execution is 
suspended until the user's reply is 
received. If the EVENT option is em- 
ployed, it will not have any effect on 
program execution; the program w ill 
not resume execution until a response 
has been received from the user's 
SYS IN. 

DATA PROCESSING ROUTINES 

I/O EDITING AND DATA CONVERSION 

PL/I allows the user a wide choice in 
selecting the representation for his data, 
both on the external medium and internally 
in storage; considerable flexibility is 
permitted in specifying changes of data 
type and form. The library conversion 
package is designed to implement the full 
set of editing and conversion functions. 



To avoid unnecessary duplication of code, 
standard intermediate forms are used. This 
has the effect of reducing the number of 
library modules in the package to about 
fifty, to cover about two hundred logical 
conversions. To speed up processing, 
direct routines are provided for some of 
the most frequently used conversions, while 
the compiler generates in-line code for 
some of the simpler ones. 



To restrict further the storage require- 
ments for the library conversion package, 
the PL/I compiler analyzes the actual 
changes of data required for a particular 
execution. Sometimes these are not fully 
known at compile time, and then a worst 
case has to be taken. 
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Figure 30. Module Usage indicated by Let- 
ters of Module Name 
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Note: <-> indicates a conversion in either direction 
Figure 31. Structure of the Conversion Package 



STRUCTURE OF LIBRARY CON VERSION PACKAGE 

To perform a change from a source data 
item to a target data item may involve a 
succession of steps and the use of several 
individual library modules within the pack- 
age. The structure of the library conver- 
sion package is shown in Figure 31. 



In association with each individual 
step, the attributes of the source or the 
target fields f or of both, must be known. 
The required information is provided in the 
calling sequences. Each data item has a 
corresponding format element descriptor 
(FED) or data element descriptor (DED) . 
With one exception, the formats of these 
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set to 1 and bit 6 is set to 0. 

Figure 32. DED Flag Byte for Character Representation of an Arithmetic Data Item 
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control blocks are described in Section IV. 
The exception is that of a DED generated at 
execution time for communication between 
library modules (see Figure 32). 



Tnis DED is created when it is necessary 
to convert a character representation of an 
arithmetic value to an intermediate coded 
arithmetic data type, prior to conversion 
to a string target. The form of this DED 
is the same as that for a coded arithmetic 
data item (CAD) , and consists of a flag 
byte and precision bytes representing the 
quantities p and q. As for coded data, the 
flag byte defines the attributes of the 
corresponding data item? bit 1 is set to 1 
to indicate that a character representation 
of an arithmetic value is referred to. 



Directors 

The structure chart makes frequent 
reference to 'directors' . These modules 
are used to fulfill two main purposes: 



The latter function is best illustrated by 
the arithmetic conversion director (IHEWB- 
MA) , where a single call determines the 
flow through a sub-package of over twenty 
arithmetic conversion routines. (See below 
in 'Arithmetic Conversions'.) 

There are director routines at four 
levels. (See Figure 35.) They are: 

1. Complex format directors. 

2. Input/output format directors and the 
complex-to-string director. 

3. String-to-arithmetic and arithmetic- 
to-string directors. 

4. Arithmetic conversion director. 

All directors except the complex-tc-string 
director can be called directly from com- 
piled code; the complex- to- string director 
is invoked from the complex format direc- 
tors or from list/data-directed input only. 



The matching of source element with 
target element, which may not be known 
at compile time. 



Any director can call any below it in 
the structure. 



The controling of the flow at object 
time by means of interpretative infor- 
mation passed to them. 



Edit-directed I/O 

Edit-directed transmission allows the 
user to specify the storage area to which 
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Figure 33. Input/Output Directors for PL/I Format Items 
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data is to be assigned or froo which data 
is to be transmitted and the actual form of 
the data on the external medium. The 
information concerning storage areas is 
specified in the source program by means of 
a data list, and the inf ormatiuOn about the 
forra of the data on the external medium by 
means of a format list. 

The library conversion package is 
designed to implement the executable format 
scheme discussed earlier by the execution- 
time matching of list item and format item 
through the use of the director routines 
mentioned above. The set of I/O directors 
provided and their association with the 
PL/I data format items is shown in Figure 
33. 



I/O EDITING 

Complex Directors : Complex format items on 
the external medium may have real and 
imaginary parts of different attributes. 
When the list item and the target field are 
of type arithmetic, this situation is 
handled in the complex director by making 
consecutive calls for real and imaginary 
format items, and passing control to the 
particular format director associated with 
the format item. 

When the target field is a string, 
however, there are two problems with C for- 
mat items. First, the data on the external 
medium must be scanned dynamically in order 
to deduce the attributes of the format 
item. The information derived from this is 
stored in a special DED. CSee 'Structure 
of Library Conversion Package*.) This DED 
is necessary for the conversion of all for- 
mat items and constants. 



Second, the base, scale an 
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Input/Output Directors : Tne input/output 
directors named above (other than C format) 
perform three major functions. Because 
there are slight differences between input 
and output, the functions are described 
under these headings. 



Input : A call is made to IHEWIOD to requ- 
est w bytes and a data field pointer. If 
the w bytes can be obtained from the cur- 



rent buffer, the address returned to the 
input director is that of the data field in 
the buffer itself. If not, a VDA is 
obtained and the requisite field of w bytes 
is built up in the dynamic area. The VDA 
address is stored in WSDV in the LCA. 
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If there is no abnormal return, the tar- 
get EEC is inspected by the director rou- 
tine and the first stage of the necessary 
conversion process is initiated by means of 
a suitable call to a routine below the 
input director level. (See structure 
chart, Figure 31.) 



When the conversion has 
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Output : A call is made to the library I/O 
package to obtain an address for the 
external data item. If the w bytes speci- 
fied can be satisfied within the current 
buffer, the address of the current buffer 
pointer is returned; if not, a VDA is 
obtained and the address of this dynairic 
storage is passed back. The source DED is 
then inspected and a call is made to the 
first subroutine in the conversion package 
to perform conversion. 



After assignment of the data item to a 
buffer area or VDA, a call to the appropri- 
ate I/O routine is made from the output 
director. If a VDA was used, the output 
field is split off Into the appropriate 
buffers and tne dyntimic storage released. 

Fcr both input and output, control is 
finally returned to compiled code. 



List- and Data-Directed Input/Output 

The total set of conversions required by 
list/data-directed I/O is shown in Figure 
34. 
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Figure 34. Conversion 



Since all the conversions represented 
deal with change of data from one internal 
representation to another, the conversion 
package is fully capable of performing the 
conversion for list/data-directed I/O. The 
type conversions are fully defined in the 
PL/I language and the modules that imple- 
ment them are given below. Some examples 
of list/data- directed I/O are included in 
IBM System/360 Time Sharing System; PL/I 
Programmer's Guide . 



MODE CONVERSIONS 

Since data may be declared COMPLEX , and 
complex values may t»e written or read by 
list-directed and data-directed input and 
output , or by the C format item, two rou- 
tines are provided to facilitate conver- 
sions of mode during I/O editing and during 
conversions between internal arithmetic and 
string data. 



TYPE CONVERSIONS 

Four director routines are provided to 
control the flow which enables changes 
between data of type string and data of 
type arithmetic, as required by the PL/1 
language. These routines, shown in Figure 
35, are used by list-, edit- and data- 
directed I/O and in some internal 
conversions. 
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Figure 35. Modules for Type Conversions 



STRING CONVERSIONS 

A set of generalized interpretive rou- 
tines is provided to support the pcssible 
string conversions and assignments that may 
exist. Each module interrogates source and 
target information contained in the string 
dope vectors and DEDs in order to handle 
truncation, padding, and alignment for 
fixed and varying strings. Figure 36 shows 
the irodules provided; it should be noted 
that there is no difference between a 
source character string with a picture and 
one without, as once the data has been 
checked into the source field, no further 
use is made of the picture. 
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Figure 36. Modules for String Conversions 



ARITHMETIC CONVERSIONS 



format items and constants, which are 
character representations of arithmetic 
type data. The flow control through this 
sub-package is achieved by the arithmetic 
conversion director described below. 

The method employed is to use an inter- 
mediate form of representation according to 
the form of the source data and to relate 
this intermediate form to the target data, 
either by direct conversion or by use of a 
second intermediate form (which implies 
radix change). The two intermediate forms 
in use are: 



A direct routine IHEWVQA converts 
floating-point data to fixed-point binary, 
in order to provide fast processing of this 
frequently used routine. Normally, howev- 
er, all conversions (including this one) 
are dealt with by the library conversion 
package. 

This package carries out editing and 
conversions for all type arithmetic source 
fields which have type arithmetic target 
fields. It also handles conversions of 



1. Packed decimal intermediate (PDI) 
This consists of 17 digits and a sign, 
together with a one-word scale factor 

(WSCF) , in binary, representing powers 

of ten. 

2. Long floating-point intermediate (FPI) 
This is the standard internal form, 
and consists of 14 hexadecimal digits. 

The logical flow through the package is 
shown in Figure 37. 
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Figure 37. Structure of the Arithmetic Conversion Package 
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The arithmetic conversion director (IHE- 
WDMA) links together the modules required 
for a particular arithmetic conversion. It 
is called either directly by compiled code 
or by other director routines. The flag 
bytes in the source and target DEDs are 
interrogated to determine which modules are 
required for the current conversion and 
their order of execution. The library com- 
munication area is used to record informa- 
tion required by successive modules as 
follows: 

WBR1 Address of entry point of second 
module 

WBR2 Address of entry point of third 
module (if required) 

WRCD Target information 

The conversion director then passes con- 
trol to the first module in the chain; the 
first transfers control to the second, and 
so on until the conversion is complete. 
The last module returns to the program 
which called the conversion director. All 
the modules which can be first in the chain 
set up by the conversion director use the 
source parameters passed to this director. 
The first conversion is always to the 
intermediate form of the same radix as the 
source. The results are stored in the fol- 
lowing LCA fields : 

WINT Binary results 

WINT) Decimal results 
WSCFJ 

Three modules in the arithmetic package 
deal with data on the external medium. Two 
modules handle the output of F and E format 
items from packed decimal intermediate for- 
mat, and the third provides conversion from 
F and E forEiat items to packed decimal 
intermediate format. The LCA fields used 
for these modules are: 



Edit Directed 

All data described by a picture is 
matched against the picture description, 
when a P format item is read in f this 
checking is performed by one of three pic- 
ture check routines (decimal, sterling, and 
character) which is called by the appropri- 
ate input director. 

F or E format items are checked against 
the format element descriptor (FED). The 
validity of the characters in the data item 
is investigated prior to conversion to 
packed decimal intermediate format. 

If B format items are assigned in the 
target DED to a bit string, the items are 
checked in the character -to-bit module. 
Otherwise, a pre-scan within the B format 
input director checks that all characters 
in the string are either zero or one. 

If A format or B format is specified on 
input without a ^ specification, the com- 
piled code calls IHEWDIL ( illegal- input 
format director) . This routine calls the 

execution error package, passing an error 
code. This causes a message to be printed 
and the ERROR condition to be raised. 

List/Data- Directed 

Within the conversion package, the con- 
stants which are converted to arithmetic 
are checked in the appropriate internal 
conversion modules. 

Decimal constants are converted by the 
F/E-to-PDI routine and are therefore 
checked by that routine as above. 

Binary constants are checked prior to 
conversion to floating-point intermediate. 

Bit string constants are checked prior 
to conversion to floating-point 
intermediate. 



WFED A (FED) at input 

WFDT A (FED) at output 

WSWA\ Switches 
WSWCJ 

WOCH A (Error character): for ONCHAR 
built-in function 

WOFD Dope vector for OMSCURCE built-in 
function 

DATA CHECKING AND ERROR HANDLING 

Checking is carried out on data on the 
external medium for edit-, data- and list- 
directed input and on internal data items 
taking part in conversions. 



INTERNAL CONVERSIONS 

Checking cf data is provided for the 
following: 

1. Character string to arithmetic. 

2. Character string to bit string. 

3. Character string to pictured character 
string. 

4. Bit string to pictured character 
string. 

In cases 1 to 3 above, if an invalid 
character is found the CONVERSION condition 



**6 



is raised; in case 4, the ERROR condition 
is raised. 



When CONVERSION is raised, an error code 
is passed to IHEWERR. The error code 
passed depends: 

1. On the type of operation (internal, 
I/O, or I/O with TRANSMIT condition 
raised) . 

2. On the various formats and conversions 
involved. These consist of: 

F format 

E format 

B format 

Character string to arithmetic 

Character string to bit string 

Character string to pictured character 

string 
P format (decimal, character and 

sterling) 

The internal error codes passed to IHEWERR 
for ON-conditions are listed in Appendix E. 

Different ONCODE values are set for each, 
and may be interrogated in an on-unit pro- 
vided for the CONVERSION condition. If the 
condition is associated with I/O, it is 
also possible that a TRANSMIT condition may 
be active. This can be tested in the on- 
unit for CONVERSION. A list of ONCODE 
values is given in IBM System/360 Time 
Sharing System: PL/I Reference Manual . 

The conversion package routines set the 
following information before invoking the 
execution error package: 

WOFD Dope vector for field scanned 

WOCH Address of character in error 

IHEQERR Value of the error code. For 
I/O editing, a 1 bit is set in 

bit zero- 
Bits 12 to 15 are set according 
to the conversion being per- 
formed, (See Figure 38.) 



In addition to the occurrence of the 
CONVERSION error, the SIZE condition can 
also occur in the CONVERSION package. Once 
again, a distinction is Bade ketween 
internal conversions and conversions 
involving the external medium. In the 
latter case, bit zero in IHEQERR is again 
set to one. 



In certain cases an illegal conversion 
may be requested or an invalid parameter 
may be passed to a conversion routine. In 



Conversion 



F format 
E format 
B format 
Character string to 

arithmetic 
Character string to 

bit string 
Character string to 

pictured character string 
P format (decimal) 
P format (character) 
P format (sterling) 




Figure 31 



Conversion Code Set in IHEQERR 



these cases the conversion package calls 
the error-handling subroutine, having set 
register RA to point to an error code. 
This causes a message to be printed which 
describes the error found; the error- 
handling subroutine then raises the ERROR 
condition. 

If a CONVERSION error occurs, the pro- 
gram can proceed in three ways: 

1. If system action is specified, a mes- 
sage will be printed and the ERROR 

condition raised. 

2. If: CONVERSION is disabled, the conver- 
sion will continue, ignoring the 

character in error. 

3. If an on-unit exists, it will be 
entered. If the on-unit returns con- 
trol to the conversion routines, they 
will assume that either the ONCHAR or 
ONSOURCE pseudo-variable has been used 
to correct or replace the character or 
field in error, and will automatically 
retry the conversion. 

Note: If the pseudo-variables have not 
been used to correct the error, and if the 
on-unit attempts to return control to the 
conversion, a message will be printed and 
the ERROR condition raised. 



COMPUTATIONAL SUBROUTINES 

Computational subroutines within the 
PL/ I Library supplement compiled code in 
the implementation of operators and func- 
tions within four main groups. These 
groups are: 

1. String Handling 

2. Arithmetic evaluation 

3. Mathematical functions 

4. Array functions 
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In addition to the description provided 
in this document, detailed information on 
algorithms and performance is published in 
IBM System/3 60 Time Sharing System; PL/I 
Library; Computational Subroutines . 



A number of error and exceptional condi- 
tions not directly covered by PL/I-defined 
ON conditions may occur in these subrou- 
tines. In these cases, a diagnostic mes- 
sage is printed and the ERROR condition 
raised. By use of the ONCODE built-in 
function, the cause of interruption may be 
ascertained in an ERROR unit and appropri- 
ate action may be taken. A list of the 
ONCODEs is given in IBM System/360 Time 
Sharing System; PL/ I Reference Manual . 



When an aggregate of data items is being 
processed, the indexing through the aggreg- 
ate is achieved by in-line code, as the 
library routines generally handle individu- 
al elements only. The array functions, 
however, perform their own indexing, so 
that only a single call from compiled code 
is made. 



For modules handling data in coded form, 
character seven of the module name indi- 
cates the type of data concerned; the mean- 
ings of this character are given in Figure 
39. 



String Operations and Functions 

The library string package contains 
modules for handling both bit and character 
string. The characteristics of the string 
operations and functions are listed in 
Figure 40. Generally, individual modules 
handle a particular function or operation 
for bit or for character string? in the 
interests of efficiency however, additional 
modules are provided to deal with byte- 



Data 



Character 



j + ., 



Internal form 
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Real 


Complex 


Real or 
Complex 


Binary 

Packed decimal 
Binary or 
packed decimal 
Short float 
Long float 
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Figure 39. Relationship of Data Fern and 
Seventh Character of Module 
Name 

aligned data for some of the bit string 
operations . 

The functions LENGTH and UNSPEC are 
handled directly by compiled code; support 
for BIT and CHAR is provided in the library 
conversion package. 

Linkage to the string subroutines is by 
means of the PL/I standard for all func- 
tions except SUBSTR, INDEX and BOOL. The 
functions REPEAT, HIGH, and LOW use the 
PL/I standard as they are implemented as 
entry points to the concatenation and 
assign/fill routines. 

The address and the maximum and current 
lengths of a string are passed to library 
modules by means of string dope vectors. 
All string lengths supplied in SDVs are 
assumed to be valid non-negative values; 
unpredictable results will ensue if this 
condition is not staisfied. 

Conversions (e.g., of decimal integers 
into binary integers for functions such as 
REPEAT) and evaluation of expressions are 
handled by the compiler, which is also 
responsible for recognizing instances of 
byte-alignment which are suitable for the 
byte-aligned bit functions provided. 
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Figure 40. String Operations and Functions 
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AR1THEMETIC OPERATIONS 



_ T . — T .___ — T _ 

| Binary | Decimal | 
| fixed J fixed | 

.X. . . X — _X- 



T . 

Short | Long 
float | float 

x 



Operation 



Real Operations 



_ T - T . — 

| IHEWXIB | IHEWXID 

I - I - 

| - I IHEWAPD 



Integer exponentiation: x**n 
General exponentiation: x**y 
Shift-and- assign, Shif t-and-load 



IHEWXIS 
IHEWXXS 



IHEWXIL 
IHEWXXL 



Complex Operations 



_ T ._. T . — .__ — . 

| IHEWMZU | IHEWWZV 
| - | 

1 - I 

1 IHEWXIU | IBEWXIV 



Multiplication/division: z ± *z.2, z ± /z 2 

Multiplication: z ± *z 2 

Division: z^/z^ 

Integer exponentiation: z**n 

General exponentiation: z ± **2 2 



1 IHEWMZW | IHEWMZZ 

| IHEWDZW | IHEWDZZ 

| IHEWXIW I IHEWXIZ 

| IHEWXXW | IHEWXXZ 

X X 



Figure 41. Arithmetic Operations 



The general design of the string package 
is influenced by the concept that complete 
evaluation of the right-hand side of an 
assignment statement occurs before the 
assignment. In this evaluation, there is 
usually an intermediate stage in which a 
partial result is placed in a field acting 
as a temporary result field. This does not 
prevent the compiler from optimizing by 
providing the actual target field of the 
assignment as the temporary result field, 
subject to the following conditions: 



If the target field is the same as a 
field involved in expression evalua- 
tion, an intermediate area is required 
to develop the result (unless other- 
wise stated in the module description 
summaries). For example, A = B || A 
requires an intermediate field, but A 
= A & B does not. 



Padding of fixed- length strings does 
not occur automatically when a string 
operation is performed, except in the 
case of assignment of fixed-length 
character strings and fixed-length 
byte-aligned bit strings. Separate 
routines are available for padding. 



Arithmetic Operations and Functions 

Library arithmetic modules provide sup- 
port for all those arithmetic generic func- 
tions and operations for which the compiler 
neither generates in-line code nor (as for 
the functions FIXED, FLOAT, UNARY, AND 
DECIMAL) uses the library corversion pack- 
age. (See Figures 41 and 42.) 

Linkage between compiled code and the 
arithmetic modules is established by means 



of the system standard for the functions 
supported and by means of the PL/I standard 
for the operations supported. The module 
description summaries provide information 
about linkage to individual modules. 



Fixed-point data often require data ele- 
ment descriptors (DEDs) to be passed in 
order to convey information about precision 
(p, q) . Binary data is always assuired to 
fce stored in a fullword correctly aligned, 
with < p< 31. Decimal data is always 
assumed to be packed in FLOOR (p/2) + 1 
bytes where < p < 15. Where such fields 
introduce high-order digits beyond the spe- 
cified precision, these digits must not be 
significant. 



In decimal routines, the target area is 
assuired to be of the correct size to 
accomodate the result precision as defined 
by the language. 



ARITHMETIC FUNCTIONS 



I 



___ T _ . — T T y 

| | Binary | Decimal | Short | Long 

| Function | fixed j fixed | float | float 

L_. ._ X _ —X. X . X 

| Real Arguments 

j. . T — T _ T T 

| MAX , MIN | IHEWMXB | 1HEWMXD | IHEWMXS | IHEWMXL 
j ADD | - |IHEWADD| - | 



| Complex Arguments 

L— _ T - f T T 

JADD | - |IHEWADV| - | 

[MULTIPLY j IBEWMPUJ |IHEWMPV| - | 

| DIVIDE | IHEWDVU | IHEWDW | - | 

| ABS | IBEWABU | IHEWABV | IHEWABW | IHEWAEZ 

I . X . X X X . 

Figure 42. Arithmetic Functions 
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Where assignment to a smaller field is 
required, the compiled code should generate 
an intermediate field for the result and 
subsequently make the assignment. This 
does not apply to ADD, MULTIPLY and DIVIDE 
with fixed-point decimal arguments, which 
perform the assignment themselves. Such 
action by compiled code avoids much unne- 
cessary execution-time testing and enables 
a clear distinction to be made between SIZE 
and FIXEDOVERFLOW conditions. 



Where evaluation or conversion of an 
argument is necessary, this is done prior 
to the invocation of the library module. 
Hence, all arguments passed to the mathe- 
matical subroutines must be of scale FLOAT. 
As such, it is assumed that the arguments 
are normalized in aligned fullword or doub- 
leword fields for short or long precision 
respectively. The results returned are 
normalized similarly. 



Floating-point arguments are assumed to 
be normalized in aligned fullword or doub- 
leword fields for short or long precision 
respectively," the results returned are 
similarly normalized. 



Mathematical Functions 

The library provides subroutines to deal 
with all float arithmetic generic functions 
and has separate modules for short and long 
precision real arguments, and also for 
short and long precision complex arguments 
where these are admissible (see Figure 43). 

Linkage to all mathematical subroutines 
is by means of the system standard. 



Array Functions 

The library provides support for com- 
piled code in the implementation of the 
PL/I array built-in functions SUM, PROD, 
POLY, ALL, and ANY. (See Figure 44.) 
Calls to array function modules are by 
means of the system standard; the indexing 
routines, which are used internally by the 
library, use the PL/I standard calling 
sequence. 



In all cases, the source arguments are 
arrays and the function value returned is a 
scalar. The evaluation of this function 
value requires only one call from compiled 
code, indexing through the array being 
handled internally within the library. 



Real Arguments 
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In the interests of efficiency, two sets 
of modules are provided: those which deal 
with arrays whose elements are stored con- 
tiguously (simple arrays) , and those which 
also deal with arrays whose elements are 
not in contiguous virtual storage (inter- 
leaved arrays) . 



In order to deal with array element 
addressing, the library modules require an 
array dope vector (ADV or SADV) to be 
passed as an argument. The format of these 
dope vectors is described in Section IV. 
The number n, the number of dimensions of 
the array, is required in addition to the 
ADV or SADV, and is passed as a separate 
argument. 



Complex Arguments 



r __ — . . — .. — — 

I 

| Function 

I 


— _ T - 
4.- 


Short | 
float 1 

X- 


Long 
float 


r 

JSQRT 
(EXP 


T 


T 

IHEWSQW | 
IHEWEXW | 


IHEWSQZ 
IHEWEXZ 


[LOG 




IHEWLNW | 


IBEWLNZ 


| SIN , COS , SINH , COSH 




1HEWSNW | 


IHEWSNZ 


|TAN, TANH 




IHEWTNW | 


IHEWTNZ 


fATAN, ATANH 




IHEWATW | 


IHEWATZ 



Figur 



e 43. 



Mathematical Functions 



The PL/I language requires that the sca- 
lar values resulting from the use of the 
array functions, SUM, PROD, and POLY, 
should be floating-point. Since the 
library modules are addressing each array 
element successively, the necessary calls 
to the conversion routines (to change scale 
from FIXED to FLOAT) are made from the SUM, 
PROD, and POLY modules which have fixed- 
point arguments. In the case of ALL and 
ANY functions, it is expected that any 
necessary conversion to bit string will be 
carried out before the library is invoked. 
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I 

Y 

I Indexers | 
| ALL, ANY 1 

L . X 



j Simple arrays, and 
I interleaved arrays of 
| variable-length strings 



| Interleaved string 
| arrays with fixed- 
I length elements 



IHEWJXS 
IHEWNL1 



IHEWJXI 
I HEWN L 2 



Note : IHEWJXI is also used for indexing through interleaved arithmetic arrays. 
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Figure 44. Array Indexers ar.d Functions 



Section I: General Implementation Features 51 



SECTION II 



MODULE SUMMARIES 



This section provides 
individual modules of the 
serves as an introduction 
detailed accounts given i 
the program listings . A 
function is given; also p 
specifications of linkage 
dependency. Since many 1 
invoke the execution erro 
WERR) , no reference is ma 
in the s Calls 1 section. 



information about 
PL/I Library, It 
to the more 

n the prefaces to 
brief statement of 
rovided are full 

and inter-modular 
ibrary modules 
r pacicage (IHE- 
de to this module 



CONTROL PROGRAM INTERFACES 

The 'Calls 1 and "Called by s sections 
include the use of the CALL macro to pass 
control. In those cases mentioned in the 
section on OPEN processing, a direct branch 
is taken. 
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Figure 45. Coincidence of Source and Tar- 
get Fields in Sorrie String 

Modules 



The first byte of the result produced by 
the comparison modules IHEWBSC, IHEWBSD, 
and IHEWCSC contains: 



DATA PROCESSING 



Bits 



Contents 



All integral values specified in the 
"Linkage 1 section of the module description 
will be represented internally as fullword 
binary integers. Target fields will also 
be fullwords unless otherwise specified or 
implied (for example, for long floating- 
point results) . 

When FIXED data is passed to the 
library* a DED is associated with it in the 
linkage. In cases where the DED is not 
interrogated, the appropriate entry in the 
'Linkage* section is marked with an 
asterisk* 

Complex arguments are assumed to have 

real and imaginary parts stored next to 
each other in that order , so that the 
address of the real part suffices for both 
of them. Both parts are described by the 
same DED* 



1/0 Editing and Data Conversions 

Target fields may r if desired # be over- 
lapped with source fields in all cases 
except IBEWVSA, IBEWVSB, IHEWVSC, IHEWVSD f 

1HEWVSE, and IHEWVSF. 



Strings : A source string field may coin- 
cide with a target string field in the 
modules listed in Figure 45* It should be 
noted that use of the same address for the 
dope vectors of source string and target 
string is not generally permitted, even 
though the string fields themselves may be 
overlapped. The exceptions to this are the 
entry points IHEBSKK and IBECSKK, where a 
considerable saving of time can be obtained 
by using the same address for both the 
first source and target SDVs . 



to 1 Instruction length code 01 

2 to 3 Condition code as below 

4 to 7 Program mask (calling routine) 

The condition code is set as follows: 

00 Strings equal 

01 First string compares low at first 

inequality 

10 First string compares high at first 

inequality 

Arithmetic : Target fields may , if desired, 
be overlapped with source fields in all 
cases except IBEWXIU, IBEWXIV, IHEV^XIW r 
IriEWXIZ, IBEWXXL and IHEWXXS. 

Mathematical : Target fields may f if 

desired, be overlapped with source fields 
in all cases except IHEWEFL, IHEWEFS, 
IHEWLNW, IBEWLNZ, IHEWSQW and IHEWSQZ* 



IBEWABU 



Entry Point : IBEABU0 

Functi on: ABS (z) » where z is complex 
fixed-point binary. 

linkage : 

RA; A (Parameter list) 
Parameter list: 
ACz) 
♦ACDED for z) 

A (Target) 
*A (Target DED) 

Called by : Compiled code 
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IHEWABV 



Linkage : 



Entry Point : IHEABVO 

Function : ABS (z) f where z is complex 
fixed- point decimal. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

ACz) 

ACDEB for z) 

A(Target) 

A (Target DED) 

Called by : Compiled code 



RA: A (Parameter list) 

Parameter list: 
A(x) 

ACDED for x) 

ACy) 

A (DED for y) 

ACTarget) 

A (Target DED) 

Called by : Compiled code, IHEWADV 



IBEWADV 



Calls: IHEWADD 



IHEWABW 

Calls : IHEWSQS 

Entry Point : IHEABWO 

Function : ABS(z), where z is complex short 
floating-point . 

Linkage : 

RA: A (Parameter list) 
Parameter list: 
A(z> 

A (Target) 

Called by : Compiled code, IBEWSQW 



En try Point : IHEADVO 

Function : ADD (w,z,p,q), where w and z are 
complex fixed-point decimal, and (p f q) is 
the target precision. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

ACw) 

A (DED for w) 

ACz) 

A (DED for z) 

A (Target) 

ACTarget DED) 

Called by : Compiled code 



IHEWAPD 



IHEWABZ 

Calls : IHEWS QL 

Entry Point : IHEABZO 

Function : ABS(z), when z is complex 
floating-point. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 
A(z) 

A (Target) 

Called by : Compiled code, ILEWSQZ 

IHEWADD 

Calls : IKEWAPD 

Entry Point : IHEAEDO 

Function : ABE (x,y , p, q) , where x and y are 
real fixed-point decimal, and (p,q) is the 
target precision. 



Calls: 



IHEERRB 



Entry Point : IBEAPDA 

Fun ction : To assign x to a target with 
precision (p 2r q 2 ) * where x is real fixed- 
point decimal with precision (pi* q±} , and 
p ± < 31. 



Linkage 


: 


RA: 


A(x) 


RB: 


A(DED for x) 


RC: 


A(Target) 


RD: 


A (DED for target) 



Called by : IHEWADD, IHEWDVV, IHEWtfPV 

Entry Point : IHEAPDB 

Function : Tc convert x to precision 
(31, q 2 ) t where x is real fixed-point decim- 
al with precision (p lf q±) , and p ± < 31. 

Linkage : As for IHEAPDA 

Called by : IHEWADD, IHEWDVV 



Section II: Module Summaries 55 



IHEWATL 



Linkage : 



Entry Point : IhEATLl 

Function : ATAN Cx) where x is real long 
floating-point. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A(x) 

A(Target) 

Called by : Compiled code 

Entry Point : IHEATL2 

Function : ATAN Cy ff x), where x and y are 
real long floating-point. 

Linkage : 

RA: ACParameter list) 
Parameter list: 

ACy) 

ACx) 

ACTarget) 

Called by : Compiled code, IHEWATZ, IHEWLNZ 

Entry Point : 1HEATL3 

Function : AT AND Cx) , where x is real long 
floating-point. 

Linkage : 

RA: ACParameter list) 
Parameter list : 
ACx) 

ACTarget) 

Called by : Compiled code 

Entry Point : IHEATL4 

Function : ATAND (y,x) # where x and y are 
real long floating-point. 

Linkage : 

RA: ACParameter list) 
Parameter list: 

ACy) 

ACx) 

ACTarget) 

Called by : Compiled code 



IHEWATS 



Entry Point : IHEATS1 

Function : ATAN Cx) , wnere x is real short 
floating-point. 



RA: ACParameter list) 
Parameter list: 
ACx) 

ACTarget) 

Called by : Compiled code 

Entry Point : IHEATS2 

Function : ATAN Cy r x) f where x and y are 
real short floating-point. 

Linkage : 

RA: ACParameter list) 
Parameter list: 

ACy) 

ACx) 

ACTarget) 

Call ed by : Compiled code, IHEWATW, IHEWLNW 
Entry Point : IHEATS3 

F unction : ATAND Cx) f where x is real short 

floating-point. 

Linkage : 

RA: ACParameter list) 
Parameter list: 

ACx) 

A CTarget) 

Called by : Compiled code 

Entry Point : IHEATS4 

Function : ATAND (y,x), where x and y are 
real short floating-point. 

Linkage: 

RA: ACParameter list) 
Parameter list: 

ACy) 

ACx) 

ACTarget) 

Called by : Compiled code 



IHEWATW 

Calls: IHEWATS, IHEWHTS 

Entry Point : IHEATWN 

Function : ATAN Cz) f where z is complex 
short floating-point. 

linkage: 

RA: ACParameter list) 
Parameter list: 
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A(z) 

A (Target) 

Called by ; Compiled cede 

Entry Point : IHEATWB 

Calls : IHEATS2, IHEWHTS 

Function : ATANH (z) , where z is complex 
short floating-point. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 
A(z) 

A (Target) 

Called by : Compiled code 



Linkage : Won e 

Called by : Compiled code 

IHEWBSA 



Entry Point : IHEBSAO 

Function : AND operator (&) for two byte- 
aligned bit strings. 

Linka ge: 

RA: ACSDV of first operand) 
RE: A(SDV of second operand) 
RC: A(SDV of target field) 

Called by: Coir piled code 



IHEWATZ 

Calls : IHEWATL, IHEWHTL 

Entry Point : IflEATZN 

Calls : IBEATL2, IHEWHTL 

Function : AT AN (z), where z :.s complex 
long floating-point. 

Linkage : 

RA: A(Parameter list) 
Parameter list: 
A(z) 

A (Target) 

Called by : Compiled code 

Entry Point : IHEATZH 

Calls : IHEATL2, IHEWHTL 

Function : ATANri (z) , when z ;.s complex 
long floating-point. 

Linkage : 

RA: A(Parameter list) 

Parameter list: 

A(z) 

A (Target) 

Called by : Compiled code 



IHEWEEG 



Entry Point : IHEBEGN 

Function : Issues a GATWR macro instruction 
if the program does not have a main 
procedure. 



IHEWESC 

Entry Point : IHEBSCO 

Function : To compare two byte- aligned bit 
strings. 

L inka ge : 

RA: A(SDV of first operand) 
RB: A(SDV of second operand) 
RC: A(Target) 

Called by : Compiled code 



IHEWBSC 

Entry Point : IHEBSDO 

Function : To compare two bit strings with 
any alignment. 

Linkage: 

RA: A(SDV of first operand) 
RB: ACSDV of second operand) 
RC: A (Target) 

Called by : Compiled code 



IHEWBSF 

Entry Point : IHEBSFO 

Function : BOOL (Bit string, bit string, 
string n ± n 2 n 3 n ) . 

Linkage : 

RA: A (Parameter list) 

Parameter list: 

ACSEV of first source string) 
ACSEV of second source string) 
ACFullword containing bit pattern n ±r 
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n 2 n 3 n right justified) 
ACSDV of target field) 

Called by ; Compiled code 



IhEWB Sl 

Entry Point : IriEBSIO 

Function ; INDEX (Bit string, bit string) 

Linkage : 

RA: AC Parameter list) 

Parameter lists 

ACSDV of first source string) 
ACSDV of second source string) 
A (Target field) 

Called by : Compiled code 



1BEWBSK 

Entry Point : 1HEBSKA 

Function : To assign a bit string to a tar- 
get field. 

Linkage : 

RA: ACSDV of source string) 
RB: ACSDV of target field) 

Called by : Compiled code 

Entry Point : IriEBSKK 

Function : Concatenate operator C | | ) for 
tit strings. 

Linkage : 

RA: ACSDV of first operand) 
RB: ACSDV of second operand) 
RC: ACSDV of target field) 

Called by : Compiled code, IHESTGA 

Entry Point : IriEBSKR 

Function : REPEAT (Bit string, n). 

Linkage : 

RA: ACSDV of source string) 

RB: ACn) 

RC: ACSDV of target field) 

Called by : Compiled code 



Function : To assign a byte-aligned bit 
string to a byte-aligned fixed-length 
target . 

Linkag e: 

RA: ACSDV of source string) 
RE: ACSDV of target field) 

Called by : Compiled code 

Entry Point : IBEBSMV 

Function : To assign a byte- aligned bit 
string to a byte-aligned VARYING target. 

Linkage : As for IHEBSMF 

Called by : Compiled code 

Entry Point : IHEBSMZ 

Function : To fill out a bit string from 
its current length to its maximum length 
with zero bits. 

Linkage : 

RA: ACSDV) 

Called by : Compiled code 



IHEWBSN 

Entry Point : IHEBSNO 

Function : NOT operator C-j ) for a byte- 
aligned bit string. 

Linkage : 

RA: ACSDV of operand) 

RE: ACSDV of target field) 

Called by : Compiled code 



IHEWBSQ 

Entry Point : IHEBSOO 

Function : OR operator C | ) for two byte- 
aligned bit strings. 

Linkage: 

RA: ACSDV of first operand) 
RE: ACSDV of second operand) 
RC: ACSDV of target field) 

Called by : Compiled code 



IHEWBSW 



Entry Point : IHEBSMF 



IHEWBSS 



Entry Point : IHEBSS2 
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Function : To produce an SDV describing the 
pseudo-variable or function SUBSTR (Bit 
string, i) . 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A(SDV of source string) 

A(i) 

Dummy argument 

A (Field for target SDV) 

Called by : Compiled code 

Entry Point : IHKBSS3 

Function : To produce an SDV describing the 
pseudo-variable or function SUBSTR (Bit 
string, i , j) . 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A (SDV of source string) 

A(i) 

A(j) 

A (Field for target SDV) 

Called by : Compiled code 



1HEWBST 

Calls : IHEWBSF, IHEWBSI, IBIWBSS 

Entry Point : IHEBSTA 

Function : Translate bit string 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A (SOURCE/TARGET SDV) 

A (REPLACEMENT SDV) 

A (POSITIONAL SDV) 

Called by : Compiled code 

IHEWJSV 

Entry Point : IriEBSVA 

Function : Verify bit string 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A (El SDV) 

A(E2 SDV) 

A (Result field) 

Called by : Compiled code 



IHEWCFA 



Entry Point : IBECFAA 

Function : ONLCC: Locates the BCD narre of 
the procedure that contains the PL/I inter- 
ruption that caused entry into the current 
on- unit. If ONLOC is specified outside an 
cn-unit, a null string is returned. 

Linkage : 

RA: A(Parameter list) 
Parameter list: 

A(Target SDV) 

Called by : Compiled code 



ItiEWCFB 



Entry Point : IHECFBA 

Function : ONCODE: Returns a value corres- 
ponding to the condition which caused the 
interruption. If specified outside an on- 
unit f a unique code (0) is returned. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A(4-byte word-aligned target) 

Called by : Compiled code 



IHEWCFC 



Entry Point : IHECFCA 

Function : ONCGUNT: Returns a value equal 
to the number of PI/I conditions and pro- 
gram exceptions, including the current one, 
that have yet to be processed. A zero 
value is returned for all TSS/360 
applications. 



LrihWCKF 

Entry Points : IBECKPS, IHECKPT 

Function : Issues diagnostic message if 
attempt is made to use CHECKPOINT facility, 
and continues execution. 

Linkag e: None 

Called by : Compiled code (CALL IHECKPS or 
CALL IHECKPT) 



IBEWCLT 

Calls : IHEWSAP, Supervisor (CLOSE, ECBB, 
FREEMAIN) 
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Entry Point : IHECLTA 



Linkage : 



Function: 



Close files : 



1- Free FCB. 

2. Set file register tc zero. 

3. Remove file from IHEQFOP chain. 

*4 . Purge outstanding I/O events, setting 
event variables complete, abnormal, 
and inactive. 

No close is issued if the file is SYSIN or 
SYSOUT. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A (CLOSE parameter list) 

A (Private adcons) 

CLOSE parameter list: 
A(DCLCB ± ) 
(Reserved) 
(Reserved) 



A(DCLCB n > 

(Reserved) 

(Reserved) 

(High-order byte of last argument 
indicates end of parameter list) 

C alled by : IHEtfOCL 

Entry Point : IHECLTB 

Function : To close all files when a PL/I 
program is terminated. 

Link age: 

RA: A (Parameter list) 
Parameter list: 

F (number of files to be closed*^) 

A(Adcon list) 

AClst FCB) 



RA: A (Parameter list) 
Parameter list: 

A(DCLCB) 

A(Fullword) 

Called by : Compiled code 

Entry Point : IHECNTB 

Function : Returns current line number 
(LINENO) . 

Linkage : As for IHECNTA 

Called by : Compiled code 

IHEWCSC 

Entry Point : IHECSCO 

Function : Tc compare two character 
strings. 

Linkage : 

RA: ACSBV of first operand) 
RB: A(SDV of second operand) 
RC: A(Target) 

Called by : Compiled code 



IHEWCSI 

Entry Point : IHECSIO 

Function : INDEX (Character string, 
character string) . 

Linkage : 

RA: A(Parameter list) 

Parameter list: 

A(SDV of first source string) 
A(SCV of second source string) 
A (Target field) 

Called by : Compiled code 



A (nth FCB) 

(High-order byte of last argument indi- 
cates end of parameter list. ) 

Called by : IHEWOCL 



IHEWCNT 



Entry Point : IHECNTA 



Function: 



Returns count of scalar items 



transmitted on last I/O operation. 



IHEWCSK 

Entry Point : IHECSKK 

F unction : Concatenate operator (||) for 
character strings. 

Linkage : 

RA: A(SDV of first operand) 
RE: A(SDV of second operand) 
RC: A(SDV of target field) 

Called by : Compiled code 



60 



Entry Point : IHECSKR 



IHEWCSS 



Function ; REPEAT (Character string, n) 



Linkage : 

RA: A (SDV of source string) 

RB: A(n) 

RC: A (SDV of target field) 



Called by : Compiled code 



IHEWCSM 

Entry Point : IHECSMF 

Function : To assign a character string to 
a fixed-length target. 

Linkage : 

RA: A (SDV of source string) 
RB: A(SDV of target field) 

Called by : Compiled code 

Entry Point : IBECSMV 

Function : To assign a character string to 
a VARYING target. 

Linkage : As for IHECSKF 

Called by : Compiled code 

Entry Point : IHECSMB 

Function : To fill out a character string 
from its current length to its maximum 
length with blanks. 

Linkage : 

RA: ACSDV) 

Called by : Complied code 

Entry Point : IHECSMH 

Function : HIGH 

Linkage : As for IHECSMB 

Called by : Compiled code 

Entry Point : IHECSML 

Function : LOW 

Linkage : As for IHECSMB 

Called by : Complied code 



Entry Point : 1HECSS2 

Function : To produce an SDV describing the 
pseudo-variable or function SUBSTR 
(Character string, i). 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A (SDV of source string) 

A(i) 

Duirrry argument 

A (Field for target SDV) 

Called by : Compiled code 

Entry Point : 1HECSS3 

Function : To produce an SDV describing the 
pseudo-variable or function SUBSTR 
(Character string, i, j) . 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A (SDV of source string) 

A(i) 

A(j) 

A (Field for target SDV) 

Called by : Compiled code 



IHEWCST 

Entry Point : IHECSTA 

Eunction : Supplements translate character 
string 

Linkage: 

RA: A (Parameter list) 
Parameter list: 

A(SEV of SOURCE/TARGET) 

A(.:;DV of REPLACEMENT) 

A(SEV of POSITIONAL) 

A (Translate table) 

Called by : Compiled code 



IHEWCSV 

Entry Point : IHECSVA 

Function: Supplements verify character 
string 



Linkage : 



RA: A (Parameter list) 
Parameter list: 
A (El SDV) 
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ACE2 SDV) 

A (Translate table) 

A (Result field) 

Called by : Compiled code 



IHEWCVC 

Calls : Supervisor (DIR, EBCDTIME, FREE- 
POOL, GATWR, GETBUF, GETPGOL, PAUSE, SIR, 
SPEC, STIMER, XTRCT) 

Function : This module is a table contain- 
ing the non- shareable part of the PL/I 
library. It consists of V- and A- type 
address constants, L-form macros, and 
executable macros with parameter lists or 
address constants. Pseudo-register IHEQCTS 
contains the base address of the module. 

Called by : Compiled cede 



1HEWCBN 

Calls : 1HEWDMA, IHEWUPA, IHEWUPB 

Entry Point : IHEDBNA 



Entry Point : IHEDCNB 

Function : As for IHEDCNA, but the ONSOURCE 
address is not stored. 

Linkage : As for IHEDCNA, but without WOFD 

Called by : As for IHEDCNA 



IHEWDDI 

Calls: IHEWDDJ, IHEWTOF, IHEWLDI, IHEWSAP 

Entry Point : IHEDDIA 

Function : To read data from an input 
stream and assign it to internal variables 
according to symbol table information con- 
ventions. Restrictive data list. 



Linkage : 



RA: A (Parameter list) 
Parameter list: 
A (Symbol table*.) 



Function : To convert a bit string to an 
arithmetic target with a specified base, 
scale, mode, and precision. 

Linkage : 

RA: A (Source SDV) 

RB: A (Source LED) 

RC: A(Target) 

RD: A (Target DED) 

Called by : Compiled code, IHEWDCA, IHEW- 
DOE, IHEWDOM 



IHEWDCN 

Calls : IHEWDMA, IHEWUPA, IHEWUPB, IHEWVQB 

Entry Point : IHEDCNA 

Function : To convert a character string 
containing a valid arithmetic constant or 
complex expression to an arithmetic target 
with specified base, scale, mode, and pre- 
cision. The ONSOURCE address is stored. 



Linkage 




RA: 


A (Source SDV) 


RB: 


A (Source LED) 


RC: 


A (Target) 


RD: 


A (Target DED) 


WOFD 


>: A(Source SDV) 


Called 


by: Compiled co 



A (Symbol tatle n ) 

(High-order byte of last argument 

indicates end of parameter list.) 

Called by : Compiled code 

Entry Point : IHEDDIB 

Function : As for IHEDDIA, tut no data 
list. 

linkage : 

RA: A (Parameter list) 
Parameter list: 

A (Symbol table chain) 

Called by : Compiled code 



IHEWDDJ 

Entry Point : IHEDDJA 

Function : To compute the address of an 
array element from source subscripts and an 

ADV. 

l inkage : 

RA: A(ADV) 

RB: A (DED) 

RC: A (Field for element address) 

RD: A (Symbol table entry, 2nd part) 

RE: A (SDV for subscripts) 



DOA, IHEWEOE 



Called by : IHEDDIA 
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IHEVvDDO 

Calls : 1HEWDDP, IHEWIGF, IHEWLDO f IHEWPRT 

Entry Point ; IriEDDOA 

Function ; To convert data according to 
data-directed output conventions and to 
write it onto an output stream. For scalar 
variables and whole arrays. 

Linkage ; 

RA; A (Parameter list) 
Parameter list; 

ACSyirbol table entry ± ) 



Called by ; IHEWERR, IHESAPA 

Entry Point ; IHEDDOE 

Function; In the absence of a data list, 
to convert all data known within a block 
according to data-directed output conven- 
tions and to write it onto an output 

stream. 

Linkage ; 

RA: A (Parameter list) 
Parameter list: 

A (First; symbol table entry) 

Called by: Compiled code 



ACSymbol table entry n ) 
(High-order byte of last argument 
indicates end of parameter list,) 

Called by ; Compiled code 

E ntry Point ; IHEDDOB 

Function : As for IHEDDOA but for array 
variable elements. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A (Symbol ta&le entry ± ) 

A (Element address^) 



A (Symbol table entry n ) 
A(Element address n ) 
(High-order byte of last argument 
indicates end of parameter list. ) 

Called by : Compiled code 

Entry Point : IHEDDOC 

Function : To terminate data -directed 
transmission. 

Linkage : None 

Called by : Compiled code 

Entry Point : IHEDDOD 

Function : As for IHEDCGA, but used to sup- 
port the CHECK condition. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A (Symbol table entry) 

A (Element address) 



IHEWCDP 



Entr y Point : IHEDDPA 



Function: To prepare an array for sub- 
script output operation, and to address the 
first element. 



LinKage ; 

RA; A (Field for A(VDA)) 

RB: A(FCB) 

RC: A (Symbol table entry, 2nd part) 

Called by: IHEWDDO 

Entry Point : IBEDDPB 

Function : To perform subscript output. 

Linkage : 

RA: A (Parameter list) 
Parameter list: A(VDA) 

Called by : IHEWDDO 

Entry Point : IHEDBPC 

Function: To address the next element. 



Linkage : 

RA; A (Parameter list) 
Parameter list; A(VDA) 
Return codes: 

BR=0: Another element 

BR=4: End of array 

Called by : IHEWEDO 

Entry Point : IHEDBPD 

F unction : To prepare an array for sub- 
script output operation for a given 
element . 
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Linkage : 



IHEWDID 



RA: A(Field for A(VDA)) 

RB: A(FCB) 

RC: A (Symbol table entry, 2nd part) 

RD: A (Element) 

Called by : IBEWDDO 



1HEWDIA 

Calls : IHEWDMA, IHEWDNB, IHEWDNC, IHEWIOD, 
IHEWUPA, IHEWUPB, IHEWVCA, IHEWVQB, IHEWV- 
SA, IHEWVSC 

Entry Point : IHED1AA 

Function : To direct the conversion of F 
format data to an internal data type. 

Linkage : 

RA: A (Tar get or target dope vector) 
RB: A (Target DED) 
RC: A (FED) 

Called by : Compiled code, IHEWDIM 

Entry Point : IHEDIAB 

Function : To direct the conversion of E 
format data to an internal data type. 

Linkage : As for IHEDIAA 

Called by : As for IHEDIAA 

IHEWDIB 

Calls : IHEWDCN, IHEWIOD, IHEWKCD, IHEWVSC, 
IHEWVSD , IHEWVSE 

Entry Point : IHEDIBA 

Function : To direct the conversion of A 
format data to an internal data type. 

Linkage : 

RA: A (Target or target dope vector) 
RB: A (Target DED) 
RC: A (FED) 

Called by : Compiled code 

Entry Point : IHEDIBB 

Function : To direct the conversion of pic- 
tured character string data to an internal 
data type . 

Linkage : As for IHEDIBA 

Called by : Compiled code 



Calls: IHEWDBN, IHEWDMA, IHEWIOD, IHEWUPA, 
IHEWUPB, IHEWVSC, IHEWVSD, IHEWVSE 

E ntry Point : IHEDIDA 

Function : To direct the conversion of 
external B format data to an internal data 
type. 

Linkage : 

RA: A(Target or target dope vector) 
RB: A (Target DED) 
RC: A (FED) 

Called by : Compiled code 



IHEWEIE 



Calls : IHEWDMA, IHEWDMB, IHEWDMC, IHEWIOD, 
IHEWKCA, IHEWKCB, IHEWUPA, IHEWUPB, 
IHEWVSC, IHEWVSD, IHEWVSE 

Entry Point : IHEDIEA 

Function : To direct the conversion of 
external data with a numeric picture format 
to an internal data type. 

Linkage : 

RA: A(Target or target dope vector) 
RB: A (Target DED) 
RC: A (FED) 

Called by : Compiled code, IHEWDIM 



IHEWEIL 



Entry Point : IHEDILA 

Function : To set up appropriate error han- 
dling when no width specification f cr A 
format input is given. 

Linkage : None 

Called by : Compiled code 

Entry Point : IHEDILB 

Function : As for IHEDILA, but B format 

Linkage : None 

Called by : Compiled code 

IHEWDIJM 

Calls: IHEWDIA, IHEWDIE, IHEWIOD, IHEWKCA, 
IHEWVCA, IHEWVCS 
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Entry Point : IHEBIMA 

Function ; To direct the conversion of 
external data with C format to an internal 

data type. 



Linkage : 

RA; 
RB: 
RC: 
RD: 
RE: 
RF: 



A (Target or target dope vector) 

A (Target DED) 

A (Real format director) 

A(Real FED) 

A (Imaginary format director) 

A (Imaginary FED) 



Called by ; Compiled code 



IHEWDttA 

Transfers Control to : IHEWVFD, IHEWVFE, 
IHEWVKB, IHEWVKC, IHEWVPE, IHEWVPF, 
IHEWVPG, IHEWVPH 

Entry Point : IHEBMAA 

Function : To set up the intermodular flow 
to effect conversion from one arithmetic 
data type to another. 

Linkage : 

RA: A (Source) 

RB: A (Source DED) 

RC: A (Target) 

RD: A (Target DED) 



Called by : 

Compiled 
IHEWDCN, 
IHEWPDF, 
IHEWSMF, 
IiiEWUPB, 
IHEWVFC, 
IHEWVPB, 
IHEWYGX 



IHEWDNB 



code, 1/0 directors, IHEWDBN, 



IHEWDNB, 
IHEWPEX, 
IHEWSMX, 
IHEWVCS, 
IHEWVPA, 
IHEWVKF, 



IBEWBNC, 
IBEWPSF, 
IHEWSSF, 
IHEWVFA, 
IHEWVPB , 
IBEWVKG, 



IHEWLDI, 
IHEWPSX, 
IHEWSSX, 
IHEWVFB, 
IHEWVPC, 
IHEWYGF, 



Calls : IHEWDMA, IHEWVSA 

Entry Point : IHEBNBA 

Function : To convert an arithmetic source 
with specified base, scale, mode, and pre- 
cision to a fixed-length bit string or a 
VARYING bit string of specified length. 

Linkage : 

RA: A(Source) 

RB: A (Source DED) 

RC: A (Target SEV) 

RD: A(Target DED) 



Called by : Compiled code, IHEWDIA, IHEW- 

DIE, IHEWDOD, IHEWVCS 



IHiiWDNC 

Calls : IHEWDWA, IHEWUPA, IHEWVQC, IHEWVSC, 

IHEWVSE 

E ntry Point : IHEDNCA 

Function : To convert an arithmetic source 
of specified base, scale, mode, and preci- 
sion to a character string or a pictured 
character string. 



linkage: 

RA; 
RB: 
RC: 
RE: 



A(Source) 
A (Source DED) 
A (Target SDV) 
A (Target DED) 



Called by : Compiled code, IHEWDIA, IHEW- 
E1E, 1HEWDOA, IHEWDOB, IHEWLDI , IHEWLDO , 

IHEWVCS 



IhEWDOA 

Calls : IHEWDBN, IHEWDCN, IHEWDMA, 1HEWI0D, 
IHEWVQC 

Entry Point ; IHEDOAA 

Function : To direct the conversion of 
internal data to external F format. 

Linkage : 

RA: A (Source or source dope vector) 
RB: A (Source DED) 
RC: A(Fed) 

Called by : Compiled code 

Entry Point : IHEDOAB 

Function : To direct the conversion of 
internal data to external E format. 

Linkage : As for IHEDOAA 

Called by : As for IHEDOAA 

IHEWDOB 

Calls: IHEWDNC, IHEWIOD, IHEWVSB, IHEWVSC, 
IHEWVSE, IHEWVSF 

Entry Point : IHEDOBA 

Function : To direct the conversion of 
internal data to external A(w) format. 



Section II: Module Summaries 65 



Linkage : 

RA: A (Source or source dope vector) 
RB: A (Source DED) 
RC: A (FED) 

Called by : Compiled code 

Entry Point : IBEDOEB 

Function : To direct tne conversion of 
internal data to external A format. 

Linkage : 

RA: A (Source or source dope vector) 

RB: A (Source BED) 

Called by : Compiled code 

Entry Point : IHEBOBC 

Function : To direct the conversion of 
internal data to external pictured charact- 
er format . 

Linkage : As for IHEDOBA 

Called by : Compiled code 



1HEWDQD 

Calls : IflEWDNB, IHEWIOD, 1BEWVSB, IHEWVSC 

Entry Point : IHEDODA 

Function : To direct the conversion of 
internal data to external B (w) format. 

Linkage : 

RA: A (Source or source dope vector) 
RB: A (Source DED) 
RC: A (FED) 

Called by : Compiled code 

Entry Point : IBEDODB 

Function : To direct the conversion of 
internal data to external B format. 

Linkage : 

RA: A (Source or source dope vector) 
RB: ACSource DED) 

Called by : Compiled code 

1HEWDOE 

Calls : IHEWDBN, IHEWDCN, IHEWDMA, IHEWIOD, 
IHEWVSB 



Function: 



To direct the conversion of 



internal data to external data with a num- 
eric picture format. 



linkag e: 

RA: A (Source or source dope vector) 
RB: A (Source DED) 

RC: A(FED) 



Called by : Compiled code, IHEWDOM 



IHEWDOtf 



Calls: IhEWDBN, IHEWUPA, IHEWUPB, IBEWVCA, 
IfiEWVCS 



Entry Point : 



IHEDOMA 



Function: 



To direct the conversion of an 



Entry Point : IriEDOEA 



internal data type to external C format 

data. 

Linkage : 

A (Source cr source dope vector) 

RB: A(Scurce DED) 

RC: A (Real format director) 

RE: ACReal FED) 

REt A (Imaginary format director) 

RF: A (Imaginary FED) 

Called by : Compiled code 



IHEWDSP 

Calls : System (GATWR, GATRD, GETMAIN, 
FREEMAIN) 

Entry Point : IHEDSPA 

Function : To write a message to SYSOUT, 
with or without a reply. The EVENT option 
can be used for a message with a reply, but 
it will have no effect on program 
execution. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A(SDV for message) 

A(SEV for reply) 

A (Event variable) 

(The parameter list is either one, 
two, or three elements long, depend- 
ing on the use of the REPLY and 
EVENT options. The high-order byte 
of the last argument indicates the 
end of the parameter list. ) 

Cal led by: Compiled code 
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1HEWDUM 

Calls : IHEWZZC 

Entry Points : IHEDUMC, IHEDUMJ 

Function : To index the current areas and 
PAUSE if conversational or dump the current 
areas if nonconversational. Execution tnen 
continues at the next statement. 



ACw) 

ACDED for w) 

ACz) 

ACDED for z) 

A(Target) 

ACDED for target) 

Call ed by : Compiled code 



Linkage : 

RA: A (Parameter list) 
Parameter list: 

A(Fullword binary integer, in range 

through 255) 

Called by : Compiled code 

(CALL IHEDUMC or CALL IHEDUMJ) 

Entry Points : IHEDUMP, IHEDUMT 

Function : Same as IBEDUMC, except that the 
PL/I program is terminated. 

Linkage : Same as IHEDUMC 

Called by : Compiled code 

(CALL IHEDUMP or CALL IHEDUMT) 



IHEWDVU 

Entry Point : IHEDVUQ 

Function : DIVIDE (w, z,p f q) , where w and z 
are complex fixed-point binary, and (p,q) 
is the target precision. 

Linkage : 

RA: ACParameter list) 
Parameter list: 

ACw) 

ACDED for w) 

ACz) 

ACDED for z) 

A (Target) 

ACDED for target) 

Called by : Compiled code 



1HEWDVV 

Calls : 1HEWAPD 

Entry Point : IHEDWO 

Function : DIVIDE (w f z f p f q) f where w and z 
are complex fixed-point decimal, and (p,q) 
is the target precision. 

Linkage : 

RA: ACParameter list) 
Parameter list: 



IHEwDZa 

Entry Point : IHEDZWO 

Function: z ± /z 2# where z ± and z a are com- 
plex short floating-point. 

Linkage ; 

RA: A(z ± ) 
RE: A(z 2 ) 
RG: A (Target) 

Called by: Compiled code 



IHEWDZZ 

Entry Point : IBEDZZO 

Function : Zi/z 2 , where z ± and z 2 are com- 
plex long floating-point. 

Linkage: 

RA: A(z ± ) 
RB: A(z 2 ) 

RC: A(Target) 

Called by: Compiled code 



IHEWEFL 

Calls: IHEWEXL 

E ntry point : IHEEFLF 

Function : ERF (x) , where x is real long 
floating-point . 

Linkage : 

RA: A (Parameter list) 

Parameter list: 
ACx) 
A (Target) 

Called by : Compiled code 

Entry Point : IHEEFLC 

Function : ERFC Cx) , where x is real long 

floating-point. 

L inkage : As for IHEEFLF 
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Called by : Compiled code 



IHZWERR 



IHEWEFS 

Calls : IHEWEXS 

Entry Point : IHEEFSF 

Function : ERF Cx) , where x is real short 
floating-point. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A(x) 

A(Target) 

Called by : Compiled code 

Entry Point : IriEEFSC 

Function : ERFC (x) , where x is real short 
floating-point. 

Linkage : As for IHEEFSF 

Called by : Compiled cede 

IflEWERD 

Function : Part of the error-handling rou- 
tines, it contains the data-processing 
error messages, and when required is called 

by IHEWESM. 

1HEWERE 

Function : Part of the error-handling rou- 
tines, it contains the remaining error mes- 
sages. That is, those not contained in 
IHEERD, IHEERE, 1HEER0 and IHEERP, and when 
required is called by IHEWES&. 

IHEWERI 

Function : Part of the error-handling rou- 
tines, it contains the input/output error 
messages for non-ON conditions, and when 
required is called by IHEWESM. 



IHEWERO 

Function : Part of the error-handling rou- 
tines, it contains the error messages for 
non-1/0 ON conditions, and when required is 
called by IHEWESM. 



IHEWERP 



Calls : System (SIR, DIR, SPEC), IHEWEDO, 
IHEWESM,IHEWPRT, IHEWSAP 

Entry Point : 1HEERRA (Program Interrupt) 



Function: To determine the identity of the 
or condition that has been raised, 

determine what action must be taken 
ount of it. Several courses of 

are possible, including combinations 



error 
and to 
en ace 
action 
of: 

(1) 
(2) 
(3) 
U) 
(5) 
(6) 



Entry into an on-unit 

SNAP 

No action - return to program 

Print error message and terminate 

Print error message and continue 

Set standard results into float 

registers 



Function : Part of the error-handling rou- 
tines, it contains the error messages fcr 
I/O ON conditions, and when required is 
called by IHEWESM. 



L inkag e: None 

Called by : Supervisor 

Entry Point : IHEERRB (ON Conditions) 

Function : As for IHEERRA 

L inkage : 

RA: A(DCLCB) (for I/O conditions) 
IHEQERR: Error code 

Called by : Compiled code, library modules 

Entry Point : IHEERRC (Non-ON errors) 

Function : As for IHEERRA 

Linkage : 

RA: A (Two-byte error code) 

A (Four-byte code if source program 
error) 

Called by : Compiled code, library modules 

Entry Point: IHEERRD (CHECK, CONDITION) 

Function: As for IHEERRA 



RA: A (Parameter list) 
Parameter list: 

One-byte error code 

Three- byte A(X) 

X: Symbol table (CHECK variable), or 
Symbol length and name (CHECK 
label) , or 
Identifying CSECT (CONDITION) 
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Called by : Compiled code 
Entry Point : IHEERRE 

Function : To accept control when a program 
interrupt occurs in IHEWERR or in modules 
that IHEWERR calls. A diagnostic message 
is issued and return made to command mode. 

Linkage : None 

Called by : System 

IHEWESM 

Calls : Systera r IHEWERD, IBEWERE, IHEWERI, 
IHEWERO, IHEWERP, IHEWPRT , IBEWSAP, IHEWTSA 

Entry Point : IHEESMA 

Function : To print out SNAP and system 
action messages. 



Linkage : 

RA: A (First word of a li.crary VDA to be 
used as a save area and message 
buffer) 

RH: A (Current DSA) 

Also passed are: 

A(IHEPRTE): Current LWS + 124 
A(IHETSAL) or A(IHESADE'): current LWE 

+ 128 
A(IHETSAF) or A(IBESAFD) : current LWE 

+ 132 
Length of PRV: Current LWE+102 

Called by : IHEWERR 

Entry Point : IHEESMB 

Function : To print CHECK (label) system 
action messages. 

Linkage : 

RA: A (Label) 

RB: A (Length of label) 

Also passed: 

A(IHEPTTB) or A(IHEPRTB): Current LWE 
+ 124 

Called by : IHEWERR 



IHEWEXL 

Entry Point : IHEEXLO 

Function : EXP (x) , where x is real long 
floating-point. 



Linkage : 

RA: A (Parameter list) 
Parameter list: 

A(x) 

A(Target) 

Called by : Compiled code, IHEWEFL, IHE- 
WEXZ, IHEWSHL, IHEWSNZ, IHEWTHL, IHEWXXL 



IHEWEXS 



Entry Point : IHEEXSO 

Function : EXP (x) , where x is real short 
floating-point . 



Linkage : 

RA: A (Parameter list) 

Parameter list: 
A(x) 
A (Target) 

Called by : Compiled code, IHEWEFS, IHE- 
WEXW, IHEWSHS, IHEWSNW, IHEWTHS, IHEWXXS 



IHEWEXW 

Calls : IHEWEXS, IHEWSNS 

Entry Point : IHEEXWO 

Function : EXP (z) , where z is complex 
short floating-point. 

Linkag e: 

RA: A (Parameter list) 
Parameter list: 

A(z) 

A (Target) 

Called by : Compiled code, IHEWXXW 



IHEWEXZ 

Calls: IHEWEXL, IHEWSNL 

Entry Point : IHEEXZO 

Function : EXP (z) , where z is complex long 
floating-point . 

linkage : 

RA: A (Parameter list) 
Parameter list: 
A(z) 

A (Target) 



Sectxon II: 



Module Summaries 69 



Called by : Compiled code, IHEWXXZ 



IHEWHTL 



Calls : IHEWLNL 

Lntry Point : IHEHTLO 

Function : ATANn Cx) , where x is real long 
floating-point. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

ACx) 

A (Target) 

Called by : Compiled code, IHEWATZ 



1. Open 

2. Endfile 

3. Invalid 



Linkage : As for IHEIOAA 

Called by : Compiled code 

Entry Point : IHEICAC 

Fu nction: To initialize the GET operation 
with the SKIP option* and to check the file 

status : 

1. Open 

2. Endfile 

3. Invalid 



IriEWiiTS 

Calls: IHEWLNS 

Entry Point : IHEBTSO 

Function : ATANri (x) , where x is real short 
floating-point. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A(x) 

A (Target) 

Called by : Compiled code, IBEWATW 



IHEW I OA 

Calls : IHEWIOP, IBEWOCL 

Entry Point : IHEIOAA 

Function : To initialize the GET operation, 
and to check the file status: 

1 . Open 

2. Endfile 
3 - Invalid 

Linkage : 

RA: ACParameter list) 
Parameter list: 

A(DCLCB) 

A (Abnormal return) 

Called by : Compiled code 

Entry Point : IHEIOAB 

Function : To initialize the GET operation, 
with the COPY option, and to check the file 
status: 



RA: A (Parameter list) 
Parameter list: 

A(DCLCB) 

A ( Abnorma 1 return ) 

A (Expression value) 

Called by: Compiled code 

Entry Point : IHEIOAT 

Function : To terminate the GET operation. 

linkage : None 

Called by : Compiled code 

IHEWIOB 

Calls : IHEWIOP, IBEWOCL, System (GTWRC) 

Entry Point : IHEIOBA 

Function : To initialize the PUT operation, 
and to check the file status: 

1. Open 

2. Transmit error 

3. Invalid 

To invoke GATE for GATE files. 

L inkag e: 

RA: A (Parameter list) 
Parameter list: 

A(DCLCB) 

A (Abnormal return) 

Called by: Compiled code 
Entry Point : IHEIOBB 

F unction : To initialize PUT, and perform 

PAGE, and to check the file status: 
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1 . Op en 

2. Transmit error 

3. Invalid 

To invoke GATE for GATE files. 



Linkage : As for IHEIOBA 

Called by : Compiled code 

Entry Point : IHEIOBC 

Function : To initialize PUT, and perform 
SKIP, and to check the file status: 

1. Open 

2 . Transmit error 

3. Invalid 

To invoke GATE for GATE files. 

Linkage : 

RA: ACParameter list) 
Parameter list: 

A(DCLCB) 

A (Abnormal return) 

A (Expression value) 

Called by : Compiled cede 

Entry Point : IHEIOBD 

Function : To initialize PUT, and perform 
LINE, and to check the file status: 

1. Open 

2. Transmit error 
3- Invalid 

To invoke GATE for GATE files. 

Linkage : As for IHEIOBC 

Called by : Compiled cede 

Entry Point : IHEIOBE 

Function : To initialize PUT, and perforin 
PAGE and LINE, and to check the file 
status : 

1. Open 

2. Transmit error 

3. Invalid 

To invoke GATE for GATE files. 

Linkage : As for IHEIOBC 

Called by : Compiled code 

Entry Point : IHEIOBT 

E unction : To terminate the PUT operation. 

linkage : None 



Called by: Compiled code 



IHEWIOC 

Calls: IHEWSAP, IHEWTSA 
Entry Point : IHEIOCA 

Function : To initialize the GET operation, 

with the STRING option. 

Li n kag e : 

RA: ACParameter list) 

Parameter list: 
A(SDV) 

A(EED) 

Called by : Compiled code 

Entry Point : 1HEIOCB 

Function : Tc initialize the GET operation, 
with the STRING and COPY options. 

Linkage : As for IHEIOCA 

Called by : Compiled code 

Entry Point: IHEIOCC 

Function : To initialize the PUT operation, 
with the STRING option. 

Linkage : As fcr IHEIOCA 

Called by : Compiled code 

Entry Point : IHEIOCT 



Function : 



To terminate the GET or PUT 



operations, with the STRING option. 
Linkage : None 

Called by : Compiled code 

IdEwlub 

Calls: IHEWIOF, IHEWSAP, IHEWPRT, IHEWPTT, 
IHEWTSA 

Entry Point : IHEIODG 



Function: 



To obtain the next data field 



from the record tuffer(s). 

L inkage : Library communication area (WSEV) 

Called by : Format directors, IHEWIOX 

Entry Point : IHEIODP 

Function : Tc obtain space for a data field 
in the record buffer (s). 
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■Linkage : As for IHE10DG 

Called by : Format directors, IHEWIOX 

Entry Point : IHEIODT 



Function: 



To terminate the data field 



request. 

Linkage : As for IBEIOCG 

Called by : Format directors 

IHEWIOF 

Calls: Data management (QSAM, VSAM, SYSIN, 
GATWR) 

Entry Point : IHEIOFA 

Function : To obtain logical records via 
data management interface modules, and 
initialize FCB record pointers and 
counters. 

Linkage : 

RA: A (FCB) 

Called by : IHEWDDI, IHEWBDO, IHEWIOD, IHE- 
WIOP f IHEWIOX, IHEWLDI, IHEWLDC, IHEWOCL, 
IHEWPRT 



IHEWIQN 

Calls : IHEWITB, IHEWITD, IHEWITE, IHEWITG, 
IHEWITP, IHEWOCL 

Entry Point : IHEIONA 

Function : To verify a RECORD I/O request 
and to invoke the appropriate data manage- 
ment interface module to perform the 
required operation. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A(DCLCB) 

A (RDV)/( IGNORE factor) 

A (EVENT variable)/(0)/A(Error return) 

A(KEY|KEYFROM|KEYTO SDV)/(0) 

A (Request control block) 

Called by : Compiled code 



IHEWIOP 

Calls : IHEWIOF 

Entry Point : IHEIOPA 

Function : PAGE opt ion/ format 



Linkage: No explicit parameters 

C alled by : Compiled code, IHEWIOB, IHEWIBT 

Entry Point : IHEIOPB 

Function : SKIP option/format 

Linkage: 

RA: A (FED) 

FED: Half word binary integer 

Called by : Compiled code, IHEWIOA, IHE- 
WIOB, IHEWIBT 

Entry Point : IHEIOPC 

Function : LINE opt ion/ format 

Linkage : As for IHEIOPB 

Called by : As for IHEIOPA 

IHEWIOX 

Calls : IHEWIOB, IHEWIOF 

Entry Point : IHEIOXA 

Function : To skip next n characters in 
record (s) . 

Linkage : 

RA: A(FEC) 

FED: Half word binary integer 

Called by : Compiled code 

Entry Point : IHEIOXB 

Function : To place n olanks in record (s). 

Linkage : As for IHEIOXA 

Called by : Compiled code 

Entry Point : IHEIOXC 

Function : To position to COLUMN (n). 

Linkage : As for IHEIOXA 

Called by : Compiled code 

LriEWITB 

Calls : Lata management (BSAM) f System 
(GETMAIN) 

Entry Point : IHEITBA 

Function : To provide the interface with 
BSAM for CONSECUTIVE data sets with the 
UNBUFFERED attribute. 
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Linkage : 



IHEWITG 



RA: A(FCB) 

RB: A (Parameter list) 

Parameter list : 

ACDCLCB) 

A(RBV)/A(IOCB)/A(IGNCRB factor) /A( SDV ) 

A (Event variable) / CO) 

A(KEY|KEYFROMjKEYTO SDV)/(0) 

A (Request control block) 



Called by : I HEWI ON 



IHEWITD 



Calls : Data management (VISAM), System 
(GETMAIN), IHEWSAP, IBEWTSA 



Call s: Data management (QSAM, VSAM) 

Entry Point : IHEITGA 

Function : To provide the interface with 
QSAM and VSAM for CONSECUTIVE data sets 
opened for RECORD I/O with the BUFFERED 

attribute. 

Linkage : 

RA: ACFCB) 

RB: A (Parameter list) 

Parameter list: 
A(DCLCB) 
A(RDV)/ACSDV) 
A (Error return) /CO) 
ACQ) 
A (Request control block) 



Entry Point : IHEITDA 

Function : To provide the interface with 
VISAM for creating or accessing INDEXED 
data sets when opened for SEQUENTIAL access 
(format F records). 

Linkage : 

RA: A(FCB) 

RB: A (Parameter list) 

Parameter list: 

A(DCLCB) 

A(RDV)/A(SDV) 

A (Error return) / (0) 

A(KEY|KEYFROM|KEYTO SBV)/(0) 

A (Request control block) 

Called by : I HEWI ON 



IHEWITE 



Calls : Data management (VISAM), System 



Called by : 1BEWION 



IKEWITM 



(GETMAIN) , IHEWSAP 
Entry Point : IHEITEA 



Calls : Data management (VISAM), System 
(GETMAIN) , IHEWSAP 

Entry Point : IHEITMA 

Function : To provide the interface with 
VISAM for accessing INDEXED data sets 
opened for DIRECT access (format V 

records) . 



RA: ACFCB) 

RB: A (Parameter list) 

Parameter list: 
ACDCLCB) 

A (REV) /A ( IOCB) /A( SDV) 
A (Event variable)/ (0) 
A(KEY|KEYFROM SDV)/(0) 
A (Request control block) 

Called by : IdEWION 



Function : To provide the interface with 
VISAM for accessing INDEXED data sets 
opened for DIRECT access (format F 
records) . 



IHEWITN 

Cal ls: Data management (VISAM) , System 

(GETMAIN) f IHEWSAP, IHEWTSA 



Linkage : 

RA: A(FCB) 

RB: A (Parameter list) 

Parameter list: 
A(DCLCB) 

A (RDV) /A (IOCB) /A (SDV) 
A (Event variable)/ (0) 
A(KEY|KEYFROM SDV)/(0) 
A (Request control block) 

Called by : I HEW ION 



Entry Point : IHEITNA 

Function : To provide the interface with 
VISAM for creating or accessing INDEXED 
data sets when opened for SEQUENTIAL access 
(format V records) . 

Linkage : 

RA: A(FCB) 

RE: A (Parameter list) 

Parameter list: 
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ACDCLCB) 

A(RDV)/A(SDV) 

A (Error return) /CO) 

A(KEY|KEYFROM|KEYTO SDV)/(0) 

A (Request control block) 



Called by : IHEWION 

IHEWJXI 

Calls : 1HEWSAP, IHEWTSA 

Entry Poi nt: IHEJXII 

Function : To initialize IHEWJXI to give 
bit addresses 9 and to find the first ele- 
ment of the array. 

Linkage : 

RA: ACADV) 

RB: A (Number of dimensions) 

On return : 

RA: Bit address of first element 

Called by : IHEWNL2, IHEWSTG 

Entry Point : IHEJXIY 

Function : As for IHEJXII but for byte 
addresses. 



Linkage : 

RA: ACADV) 

RB: A (Number of dimensions) 

On return : 

RA: A (First element) 

Called by : IHEWOSW, IHEWPDF, IHEWPDL, 
IHEWPDS, IHEWPDW, IHEWPDX, IHEWPDZ, 
IHEWSJMF, IHEWSMG, IHEWSMH, IHEW3MX, IHEWSTG 

Entry Point : IdEJXIA 

Function : To find the next element of the 
array. 

Linkage : 

No explicit arguments 
Implicit arguments: 
LCA 

VDA, obtained in initialization 
On return : 
RA: Bit or byte address of the next 

element 
BR=0: Normal return 

BR=4: If the address of the last ele- 
ment of the array was provided on 
the previous normal return 

Called by : All modules calling IHEJXII and 
1HEJXIY 



IHEWJXS 

Entry Point : IHEJXSI 

Function : To find the first and last ele- 
ments of an array and to give their 
addresses as bit addresses. 

linkage: 

RA: ACADV) 

RB: ACNurrber of dimensions) 

On return : 

RO: Bit address of first element 

RA: Bit address of last element 

Called by : IHENI1 

Entry Pcint : IHEJXSY 

Function : As for IHEJXSI but for byte 
addresses. 

Linkage : 

RA: ACADV) 

RB: A (Number of dimensions) 

On return : 

RO: ACFirst element) 

RA: AC Last element) 

Called by : IHEWPSF, IHEWPSL, IHEWPSS, 
IHEWPSW, IHEWPSX, IHEWPSZ, IHEWSSF, 
IHEWSSG, IHEWSSH, IHEWSSX, IHEWNLl 



IHEWKCA 

E ntry Point : IHEKCAA 

Function : To check that external data with 
a decimal picture specification is valid 
for that specification. 

Lin kage: 

RA: ACSource) 
RB: ACSource DED) 

Called by : IHEWDIE, IHEWDIM 



IHEWKCB 



Entry Point : IHEKCBA 

Function : Tc check that external data with 
a sterling picture specification is valid 
for that specification. 

Linkage : 

RA: MSource) 
RB: ACSource DED) 

Called by : IHEWBIE 
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IHEWKCD 



Entry Point : IHELDIC 



Entry Point : ItiEKCDA 

Function ; To check that external data with 
a character picture specification is valid 
for that specification. The ONSOURCE 
address is stored. 

Linkage : 

RA: A (Source) 
RB: A (Source DED) 

Called by : IHEWDIB 

Entry Point : IriEKCDB 

Function : As for IHEKCDA f but the ONSOURCE 
address is not stored. 

Linkage : As for IHEKCDA 

Called &y : 1HEWLDI 



IHEWLDI 

Calls : IHEWDCN, IHEWDMA, IHEWDNB, IHEWDNC, 
IHEWIOF, IHEWKCD, IHEWPRT, IHEWSAP, IHEWT- 
SA, IHEWUPA f IHEWUPB, IHEWVCA, IHEWVCS, 
IHEWVSC, IHEWVSD 

Entry Point : IhELIIA 

Function : To read data from an input 
stream and to assign it to internal 
variables according to list-directed input 
conventions. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A(Variablei) 

A(DEB 1 ) 



A(Variable n ) 
A(DED n ) 

(High-order byte of last argument 
indicates end of parameter list.) 

Called by : Compiled code 

Entry Point : IHELD1B 

Function ; As for IHELBIA but for single 
variables . 

Linkage : 

RA: A (Variable) 
RB: A(EEE) 

Called by : Compiled code 



Function : To scan the value field (entry 
for data-directed input) . 



Linkage : 

RA; A(Buffer SDV) 

RB: A (Control block) 

Control block; H'VDA count so far* 

X'Flag box' (one byte) 
Return codes: 

BR=0: Not last item 
BR=4: Last item 

BR=8: End of file encountered before 
complete data field collected 



Called by : 

Entry Point : 



IHEWEDI 
IHELBID 



Function : To assign a value to a variable 
(entry for data-directed input). 

Linkage : 

RA: A(Variatle) 

RB: A(DED) 

RC: A (Control block) 

Control block: H'VDA count so far' 

X'Flag box 1 (one byte) 

Called by : IHEWDDI 



I HE M DO 

Calls : IHEWENC, IHEWIOF, IHEWVSB, IHEWVSC 

Entry Point ; IHELDOA 

Function : To prepare data for output 
according to list-directed output conven- 
tions, and to place it in an output stream. 



Linkag e : 



RA: A (Parameter list) 
Parameter list: 

A(Variable ± ) 

A(DEDi) 



A(Variafcle n ) 
A(BED n ) 
(High-order byte of last argument 
indicates end of parameter list.) 

Called by : Compiled code 

Entry Point : IHELDOB 

Function : As for IHELDOA, but for only one 
item of the list of data. 
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Linkage : 

RA; A (Variable) 
RB: A (BED) 

Called by : Compiled cede 

Entry Point ; IHELEOC 

Function : As for IHELDOA, but used by data 
directed output. 

Linkage : 

RA: A (Variable) 
RB: A (BED) 
RC: A(FCB) 

Called by ; IHEWDDO 

IHEWLNL 

Entry Point : IHELNLE 

Function : LOG(x), where x is real long 
floating-point. 

Linkage : 

RA: AtParmeter list) 
Parameter list: 

A(x) 

A (Target) 

Called by : Compiled code IBEWBTL, IHEWLNZ, 
1HEWXXL, IHEWXXZ 

Entry Point : 1HELNL2 

Function : LOG (x) , where x is real long 
f loa ti ng - poi nt . 

Linkage : As for IHELNLE 

Called by : As for IHELNLE 

Entry point : IHELNLD 

Function : LOGlO(x), where x is real long 
f loa ting -point „ 

Linkage : As for IHELNLE 

Called by : As for IHELNLE 

IHEWLNS 

Entry point : IHELNSE 

Function: LOG (x) , where x is real short 
floating-point. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A(x) 

A(Target) 



Called by : Compiled code, IHEWHTS, IHEWL 
W, IHEWXXS r IHEWXXW 

Entry Point : IHELNS2 

Function : L0G2(x), where x is real short 
floating-point . 

Linkage: As for IHELNSE 

Called by : As for IHELNSE 

Entry Point : IHELNSD 

Function : LOG10 (x) , where x is real short 
floating-point . 

Linkage : As for IHELNSE 

Called by : As for IHELNSE 



I HEWIN h 

Calls : IHEWATS, IHEWLNS 

Entry Point : IHELNWO 

Function: LOG(z), where z is complex short 

floating-point . 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A(z) 

A (Target) 

Called by : Compiled code, IHEWXXW 



IHEWLNZ 



Calls : IBEWATL, IBEWLNL 

Entry Point : IHELNZO 

Function : LOG(z), where z is complex long 
floating-point „ 

Linkage : 

RA: A(Parameter list) 
Parameter list: 

A(z) 

A (Target) 

Called by : Compiled code, IHEWXXZ 



IHEWLSP 

Calls: System (FREEMAIN, GETMAIN) 

Function : Storage management for list 
processing . 
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Entry Point : IriELSPA 



Function : To provide storage in an area 
variable for an allocation of a based 
variable. 



Linkage : 

RA: A (Eight-byte wcrd-alicfned parameter 

list) 
RB: A (ALLOCATE statement) 
Parameter list: 

Byte 0: Not used 
Bytes 1-3: A (Area variable) 
Byte 4: Offset of beginning of based 
variable from doubleword 
boundary 
Bytes 5-7: Length of based variable 

On return : 

RA: A (Eight-byte word-aligned parameter 

list) 
Parameter list: 

Byte 0: Not used 
Bytes 1-3: A (Based variable) 
Byte 4: Offset of beginning of based 
variable from doubleword 
boundary 
Bytes 5-7: Length of based variable 

Called by : Compiled code 

Entry Point : IdELSPB 

Function : To free storage allocated to a 
based variable in an area variable. 

Linkage : 

RA: A (Eight-byte word-aligned parameter 

list) 
RB: A (Area variable) 
Parameter list: 

Byte 0: Not used 
Bytes 1-3: A(Based variable) 
Byte 4: Offset of beginning of based 
variable from doubleword 
boundary 
Bytes 5-7: Length of based variable 

Called by : Compiled code 

Entry Point : IHELSPC 

Function : Assignments between area 
variables. 

Linkage : 

RA: A (Source area variable) 
RB: A (Target area variable) 

Called by : Compiled code. 

Entry Point : IHELSPC 



Function : To provide system storage for an 
allocation of a based variable (using GET- 
KAIN macro) . 



Linkage : 

RA: A (Eight- byte word- aligned parameter 

list) 
Parameter list: 
Bytes 0-3: Not used 

Byte 4: Cffset of beginning of based 
variable from doubleword 
boundary 
Bytes 5-7: Length of based variable 



On ret urn : 

RA: A (Eight-byte word-aligned parameter 

list) 
Parameter list: 

Byte 0: Not used 

Bytes 1-3: A(Based variable) 

Bytes 4-7: Not used 

Called by : Compiled code 

Entry i oint ; IBELSPE 

Function : To free system storage allocated 
to a based variable (using FREEMAIN macro) . 

Linkage : 

RA: A (Eight™ byte word- aligned parameter 

list) 
Parameter list: 

Byte 0: Not used 
Bytes 1-3: A(Based variable) 
Byte 4: Cffset of beginning of based 
variable from doubleword 
boundary 
Bytes 5-7: Length of based variable 

Called by : Compiled code 



IHEWMPU 

Entry Point : IHEMPU0 

F unction : MULTIPLY (w,z,p,g), where w and 
z are complex fixed binary, and (p,g) is 
the target precision. 

linkage : 

RA: A (Parameter list) 
Parameter list: 

ACDED for w) 

ACz) 

ACDED for z) 

A (Target) 

A(DED for target) 

Called by : Compiled code 
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1HEWMPV 



linkage : 



Calls : IHEWAPD 

Entry Point : IHEMPVO 

Function : MULTIPLY (w f z f p,q), where w and 
z are complex fixed decimal, and (p r cp is 
the target precision. 

Linkage : 

RA: ACParameter list) 
Parameter list: 

ACw) 

A(DED for w) 

A(z) 

ACDED for z) 

ACTarget) 

ACDED for target) 

Called by : Compiled code 



1HBWMXB 

Entry Point : IHEMXBX 

Function : MAX ix ± , x 2 f . . . , x n ) , where x ± , x 2 
and x n are real fixed-point binary. 



Linkage : 



RA: A (Parameter list) 
Parameter list: 

A(x ± ) 

ACDED for x ± ) 



ACx n ) 

ACDED for x n ) 
ACTarget) 
A (Target DEL) 
(High-order byte of last argument 
indicates end of parameter list.) 

Called by : C carpi led cede 

Entry Poi nt: IHEMXBN 

Function : MIN(x 1 ,x 2 , . . .#x n ), where x lf x 2 
and x n are real fixed-point binary. 

Linkage : As for IHEMXBX 

Called by : Compiled code 



RA: A (Parameter list) 
Parameter list: 

A(x ± ) 

A(DED for x ± ) 



A(x n ) 

A(DED for x n ) 

A (Target) 

A Target DED) 

(High-order byte of last argument 

indicates end of parameter list.) 

Called by : Compiled code 

Entry Point : IHEMXDN 

Function : WIN (x ±f x 2 . . . f x n ) , where x ±i x z 
and x n are real fixed-point decimal. 

Linkage : As for IHEMXDX 

Called by : Compiled code 

IHEWMXL 

Entry Point : IHEMXLX 

Function : MM(x 1 ,x 2 ,...,x n ) l where x ± ,x 2 
and x n are real long floating-point. 



Linkage : 



RA: A (Parameter list) 
Parameter list: 

ACx ± ) 

A(x 2 ) 



A(x n > 

ACTarget) 

(High-order byte of last argument 

indicates end of parameter list.) 

Called by : Compiled code 

Entry Point : IHEMXLN 

Function : MIN(x ± , x 2r . • . ,x n ) , where x ±9 x 2 
and x n are real long floating-point. 

Linkage: As for IHEMXLX 

Called by : Compiled code 



1HEWMXD 

Entry Point : IHEMXDX 

Function : MAX(x ll x 2 ,, 
fixed-point decimal. 



. , and x n are real 



IHEWMXS 



Entry Point : IHEMXSX 



Function : MAX ix ± , x 2 , . . . ,x n ) , where x ±r x 2 
and x n are real short floating-point. 
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Calls; 



IHEWJXS 



Linkage ; 



RA: A(Parameter list) 
Parameter list: 

A(Xi) 

A(x 2 ) 



A(x n ) 

A(Target) 

(High-order byte of last argument 

indicates end of parameter list.) 

Called by : Compiled code 

Entry Point : IHEMXSN 

Function : MIN(x ± , x 2 , . . - , x n ) , where x ir x 2 
and x n are real short floating-point. 

Linkage : As for IHEMXSX 

Called by : Compiled code 



IHEWWZU 



Entry Point : 



IHEMZUM 



Function : z ± *z 2f where z ± and z 2 are com- 
plex fixed-point binary. 

Linkage : 

RA: A(z ± ) 

*RB: A(DED for z ± ) 

RC: A(z 2 ) 

*RD: ACDED for z 2 ) 

RE: A (Target) 

*RF: A (Target DED) 

Called by : Compiled code, 1HEWXIU 

Entry Point : IHEMZUD 

Function : z^/z^, where z ± and z 2 are com- 
plex fixed-point binary. 

Linkage : 

RA : A ( z ± } 

RB: A(DED for z ± ) 

RC : A ( z 2 ) 

*RD: A(DEB for z 2 ) 

RE: A(Target) 

*RF: A (Target DED) 

Called by : Compiled code 



IBEWMZV 



Entry Point : IHEMZVK 



Function : Zi*z 2 , where z ± and z 2 are com- 
plex fixed-point decimal. 

Linkage : 

RA: A(z ± ) 

RE: A(DEE for z ± ) 

RC: A(z 2 ) 

RE: A(DEE for z 2 ) 

RE: A(Target) 

*RF: A(Target DED) 

Called by : Compiled code, IHEWXIV 

Entry Point : IHEMZVD 

Function : z±/z 2 f where z ± and z 2 are com- 
plex fixed-point decimal. 

Linkage : As for IHEMZVM 

Called by : Compiled code 



IiihWFZj* 

Entry Point : IHEMZWO 

Function : z ± * z 2 , where z ± and z 2 are coir- 
plex short floating-point. 

Linkage : 

RA: A(Zjl) 
RE: A(z 2 ) 
RC: A (Target) 

Called by : Compiled code, IHEWXIW 



IhEWfrZz, 

Entry Point : IHEMZZO 

Function : Zi*z 2 , where z ± and z 2 are com- 
plex long floating-point. 

Linkage : 

RA: A(z ± ) 

RB: A(z 2 ) 
RC: A (Target) 

Called by : Compiled code, 1HEWXIZ 



IHEWNL1 

Cal ls: IBEWJXS 

Entry Point : IBENL1A 

Function : ALL or ANY for a simple array 
(or an interleaved array of VARYING ele- 
ments) of byte-aligned elements and a byte- 
aligned target. 
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Linkage : 

RA: A (Parameter list) 

Parameter list: 
A(SABV) 

A (Number of dimensions) 
A (DEB of the array) 
(A(IHEBSAO) for ALL, or 
A(IHEBSOO) for ANY) 
A(SDV for Target field) 



Called by : Compiled code 

Entry Point : IriENLlL 

Function : ALL for a simple array (or an 
interleaved array of VARYING elements) of 
elements with any alignment, and a target 
with any alignment. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A(SABV) 

A (Number of dimensions) 

A (DEB of the array) 

A(IHEBSFO) 

A(SBV for target field) 

Called by : Compiled code 

Entry Point : IHENL1N 

Function : As for IHENL1L, but ANY. 

Linkage : As for IHENL1L 

Called by : Compiled cede 

IHEWNL2 

Calls : IHEWJXI 

Entry Point : IHENL2A 

Function : ALL or ANY for an interleaved 
array of fixed-length byte-aligned elements 
and a byte-aligned target. 

Linkage : 

RA: A(Parameter list) 
Parameter list: 

A(SADV) 

A (Number of dimensions) 

A(DED of the array) 
(A(IHEBSAO) for ALL, or 

A(IHEBSOO) for ANY) 

A(SDV for target field) 

Called by : Compiled code 
Entry Point : IHENL2L 



Function : ALL for an interleaved array of 
fixed-length elements with any alignment, 
and a target with any alignment. 

Linkag e: 

RA: A (Parameter list) 
Parameter list: 

A(SADV) 

A (Number of dimensions) 
*A(DED of the array) 

A(IHEBSFO) 

A(SBV for target field) 

Called by : Compiled code 

Entry Point : IBENL2N 

Function : ANY for an interleaved array of 
fixed- length elements with any alignment, 
and a target with any alignment. 

Linkage: 

RA: A (Parameter list) 
Parameter list: 

A(SADV) 

A (Number of dimensions) 
*A(DED of the array) 

A(IHEBSFO) 

A(SBV for target field) 

Called by : Compiled code 



IHEWOCL 

Calls : System (DCBD, FREEWAIN) ,IHEWCLT, 
IHEWIOF, IHEWTTL, IHEWOPN, IBEWSAP 

Entry Point : IHEOCLA 

Function : Explicit open: links to IHEOP- 
NA; handles error conditions detected by 
IHEWOPN, IHEWOPO, IHEWOPP, IHEWOPQ cr 
IHEWOPZ . 

Linkage : 

RA: A (OPEN parameter list) 
Parameter list: See IHEOPN 

Called by : Compiled code, IHEWPRT 

Entry Point : IHEOCLB 

Function : Explicit close: links tc 

ItiECITA. 

L inkage : 

R£: A (CLOSE parameter list) 
Parameter list: See IHECLTA 

Called by : Compiled code 

Entry Point : IHEOCLC 



BO 



Function: To perforin implicit- open. 



Called by: IHEWOCL 



Linkage : 

RA: A(OCB) 
RB: A(DCLCB) 

Called by : IBEWIOB, IHEWION, IHiiWSAP 

Entry Point : IHEOCLE 

Function : Implicit close: 

1- When a PL/1 program is terminated, to 
close all the files opened in the PL/I 
program (by linking to IHECLTB) . 

Linkage : 

RA: ACPRV of current task) 

Called by : IHEWSAP 

IHEWOPN 

Calls : IHEWOPO (direct branch), IHEWOPZ, 
IHEWSAP, IHEWTSA 

Entry Point : IHEOPNA 

Function : Open files: 

1. Merge declared attributes with OPEN 
options, 

2. Invoke IHEWOPO. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A (OPEN Parameter list) 

A (Private Adcons) 
OPEN Parameter list: 

A(DCLCB 1 ) 

A (OPEN Control fclcck ± )/0 

A(TITLE-SDV ± )/0 

(Reserved) 

(Reserved) 

(Reserved) 

A(LlNESIZE ± )/0 

A(PAGESIZEi)/0 



A(DCLCB n ) 

A(OPEN Control blcck n )/0 

A<TITL£-SDV n )/0 

(Reserved) 

(Reserved) 

(Reserve) 
A(LINESIZE n )/0 
A(PAGESIZE n )/0 

(High-order byte of last argument 
indicates end of parameter list.) 



IHEWOPO 

Calls : System CBCB, DCBD, GETMAIN), IHE- 
WOPP (direct branch) , IHEWSAP , IHEWTSA 

E ntry Point : 1HE0P0A 

Function : 

1. To create and format the FCB. 

2. To set file register to A (FCB). 

Linkage: 

RA: A (Parameter list) 
Parameter list: 

A (IHEWOPN Parameter list) 

A ( Subparameter li st ) 
Subparair.eter list: 

XL4 , U*n* (where n is the number of 
files to be opened) 

X ■ Access/Organization Code ± ' 

AL3(DCLCB ± ) 

XL4'Merged attribute* ' 



X "Access/Organization Code n * 

AL3(DCLCB n ) 

XL«* f Merged attributed 

Note: Access/Organization Code is 

described in the module listing. 

Called by: IHEWOPN 

IHEWQPP 

Calls: System (DCBD, GETMAIN, OPEN) , IHE- 
WOPQ (direct branch), IHEWSAP, IHEWTSA 

Entry Point : IHEOPPA 

F unction : 

1- To invoke data management (OPEN 

macro) . 

2. To establish defaults at DCB exit. 

3. To acquire initial lOCBs for BSAM. 

Linkag e : 

RA: A (Parameter list) 
Parameter list: 

A (IHEWOPN Parameter list) 

A (Subparameter list) 
Subparameter list: 

XLU'a+n' (where n is the number of 

files to be opened) 

X f Access/Organization Code** 

AL3 (DCLCBi ) 
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XL4 f Merged attribute*. ' 



X' Access/Organization Code n * 

AL3 (DCLCB n ) 

XLU f Merged attribute^ 

Notes Access/Organization Code is 

described in the module listing. 



Called by ; IHEWOPO 



IHEWQPQ 

Calls : System (DCBD, GETMAIN) , IHEWSAP, 
1HEWTSA 

Entry Point : IHEOPQA 

Function : 

1. To load record-oriented I/O interface 
modules . 

2. To link FCBs through the IHEQFOP 
chain. 

3. To acquire the initial IOCBs for VISAM 
linkage. 

4. To simulate PUT PAGE when opening a 
PRINT file. 



Note: Access/Organization Code is described 
in the module listing. 

Called by : IHEWOPP 



IHEWQSD 

Entry Point : IHEOSDA 

Function : To obtain current date. 

linkage : 

RA: A (Parameter list) 
Parameter list: ACTargef SDV) 

Called by : Compiled code 



IHEWOSE 

Call s: IHEWSAP, IHEWTSA (to terminate the 
program and return to command mode) 

Entry Point : IHEOSEA 

Function : To terminate the PL/I program 
abnormally, raising the FINISH condition. 

Called by : Compiled code 



Linkage : 

RA: ACParameter list) 
Parameter list: 

ACIHEWOPN parameter list) 

A (Subparameter list) 

A (Data management OPEN parameter list) 

Subparameter list: 

XL4 f 4*n* (where n is the number of 

files to be opened) 
X' Access/Organization Code^' 
AL3(DCLCB ± ) 
XL4' Merged attributes*.* 



X 1 Access/Organization Code n ' 

AL3( DCLCB n ) 

XL4' Merged attributes n * 

Data management OPEN parameter list: 
XL^'a+n* (where n is the number of 

files to be opened) 
X (Flags for data management OPEN 

executor*) 
AL3(DCB ± ) 



X (Flags for data management OPEN 

executor n ) 
AL3(DCB n ) 



IHEWOSI 

Calls : STIMER macro 

Entry Point : IHEOS IA 

Function : To use the STIMER macro with the 
WAIT option for the implementation of 

EELAY . 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

Interval of delay, in milliseccnds , in 

a fullwcrd 

C alled by : Compiled code 

IHEWOSS 

Calls : IHEWSAP, IHEWTSA (to terminate the 
program) 

Entry Point : IHEOSSA 

Function : To raise the FINISH condition 
and abnormally terminate the program. 

Linkage : None 

Called by : Compiled code 
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IHEWOST 



Entry Point : IHEPDFO 



Calls : EBCDTIME macro 

Entry Point : IHEOSTA 

Function : To use the EBCDTIME macro to 
obtain the time of day. 

Linkage : 

RA: A (Parameter list) 
Parameter list: A (Target SDV) 

Called by: Compiled code 



IHEWOSW 

Calls : System (FREEMAIN), IBEJXI, IHEWSAP, 
and the I/O transmit module whose address 
is in the FCB . 

Entry Point : IHEOSWA 

Function : To determine whether a specified 
number of events has occurred. If not, to 
wait until the required number is complete, 
and to branch to the I/O transmit module 
(which raises I/O conditions if necessary) . 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

Word 1: 

1. If all events are to be waited on: 

Byte = X'FF' 
Bytes 1-3 not used 

2. If a specified number (N) of events is 
to be waited on: 

Byte = X'OO' 
Bytes 1 - 3 = A(N) 

Subsequent words (one for each element or 
array event) : 

1. Array event: 

Byte = dimensionality 
Bytes 1 - 3 = A(ADV) 

2- Element event: 
Byte = X f 00* 
Bytes 1 - 3 = A (Event variable) 

(High-order byte of last argument indicates 
end of parameter list. ) 

Called by : Compiled code 



Function : PROD for an interleaved array of 
real fixed-point binary or decimal ele- 
ments . Result is real short or long 

floating-point . 

Linkag e: 

RA: A (Parameter list) 
Parameter list: 

A(AEV) 

A (Number of dimensions) 

A(DED of the array) 

A (Target) 

ACEED for target) 

Called by : Compiled code 



IHEWPDL 

Calls: IHEWJXI 

En try Point : IHEPDLO 

Function : PROE for an interleaved array of 
real long floating-point elements. Result 
is real long floating-point. 

Linkag e: 

RA: A (Parameter list) 
Parameter list: 

A(AEV) 

A (Number of dimensions) 

A (Target) 



Called by : Compiled code 



IHEWPpti 

Calls : IHEWJXI 

Entry Point : IHEPDSO 

Functi on: PROD for an interleaved array of 
real short floating-point elements. Result 
is real short floating-point. 

L inkage : 

RA: A (Parameter list) 
Parameter list: 

A(ADV) 

A(Nurnoer of dimensions) 

A (Target) 

Called by : Compiled code 



IHEWPDW 



IHEWPDF 



Calls: 



IHEWJXI 



Calls : 1HEWDMA, IHEWJXI 



Entry Point : 1HEPDW0 
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Function : PROD for an interleaved array of 
complex short floating-point elements. 
Result is complex short floa ting -point - 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

ACADV) 

A (Number of dimensions) 

A(Target) 

Called by : Compiled code 



Linkage : 

R£: & (Character string) 
RB: A (Half word containing length of 
character string) 

Called by : IHEWIOD, IHEWLDI 

Entry Point : IHEPRTB 

Function : To write an error message on 
SYSOUT. Also, to prepare for system action 
for CHECK condition. 



1HEWPDX 



Calls : IHEWDMA, IHEWJXI 
Entry Point : IHEPDXO 



Linkage : As for IHEPRTA 

Called by : IHEWDDO, IHEWERR, IHEWESM, 
IHEWESS 



IHEWPSP 



Function : PROD for an interleaved array of Calls: IHEWDMA, IHEWJXS 
complex fixed-point binary or decimal ele- 
ments. Result is complex short or long 
floating-point. 



Linkage : 

RA: A (Parameter list) 
Parameter list : 

A(ADV) 

A (Number of dimensions) 

A(DED of the array) 

A (Target) 

A(DED for target) 

Called by : Compiled code 



IHEWPDZ 



Calls: IHEWJXI 



Entry Point : IHEPSFO 

Function : PROD for a single array of real 
fixed-point binary or decimal elements. 
Result is real short or long 
floating-point . 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

ACAEV) 

A (Number of dimensions) 

A(DED of the array) 

A (Target) 

A(DED for target) 

Called by : Compiled code 



Entry Point : IHEPDZO 

Function : PROD for an interleaved array of 
complex long floating-point elements. 
Result is complex long floating-point. 

Linkage : 

RA : A ( Parameter 1 ist ) 
Parameter list: 

A(ADV) 

A (Number of dimensions) 

A (Target) 

Called by : Compiled code 

IHEWPRT 

Calls : IHEWIOF, IHEWOCL, IHEWSAP 

Entry Point : IHEPRTA 

Function: To COPY a data field on SYSOUT. 



IHEWPSL 

Calls: IHEWJXS 

Entry Point : IHEPSLO 

Function : PROD for a simple array of real 
long floating-point elements. Result is 
real long floating-point. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A(ADV) 

A (Number of dimensions) 

A (Target) 

Called by : Compiled code 



IHEWPSS 



Calls: IHEWJXS 
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Entry Point ; IHEPSSO 

Function : PROD for a siirple array of real 
short floating-point elements. Result is 
real short floating-point. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A(ADV) 

A (Number of dimensions) 

A (Target) 

Called by : Compiled code 



Function : PROD for a simple array of com- 
plex long floating-point elements. Result 
is complex long floating-point. 

Linkage: : 

RA: A (Parameter list) 
Parameter list: 

A(ACV) 

A (Number of dimensions) 

A (Target) 

Called by : Compiled code 



IHEWRES 



IHEWPSW 

Calls : IBEWJXS 

Entry Point : IHEPSWO 

Function : PROD for a simple array of com- 
plex short floating-point elements. Result 
is complex short floating-point. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A (ADV) 

A (Number of dimensions) 

A (Target) 

Called by : Compiled code 



IHEWPSX 

Calls : IHEWDMA, IHEWJXS 

Entry Point : IHEPSXO 

Function : PROD for a simple array of com- 
plex fixed-point binary or decimal ele- 
ments . Result is complex short or long 
floating-point. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A (ADV) 

A (Number of dimensions) 

A(DED of the array elements) 

A (Target) 

A(DED for target) 

Called by : Compiled code 



IHEWPSZ 



Calls: IHEWJXS 



Entry Point : IHEPSZO 



Calls : IHESAFA 

Entry Point : IHEREST 

Function : To issue a diagnostic and call 
IHESAFA to raise FINISH if an attempt is 
made to use RESTART. 



linkage : None 

Called by : Compiled code 

Entry Point : IHERESN 

Function : To issue diagnostic and return 
to user program if attempt is made to can- 
cel automatic restart. 

Linkage : None 

Called by : Compiled code 

IHEWSAP 

Calls : System (FREEMAIN, GETMAIN, SPEC, 
SIR, DIR), IHEWBEG, IHEWMAN, IHEWDDO, IHE- 
WOCL, IHEWPRT 

Function : Storage management. 

Entry Point : IHESADA (Get DSA) 

Function : To provide a DSA for a procedure 
or begin block and to set DR to point to 
it. 

Linkage : 

RO: length of DSA 

ER: A (Current save area) 

Called by : Prologues 

Entry Point : IHESADB (Get VDA) 

Eunction : To get a VDA for compiled code; 
sets RA=A(VDA) . 
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Linkage : 



Called by ; Compiled code 



RO: Length of VDA (excluding control 

words) 
DR: A (Current save area) 

Called by ; Compiled code 

Entry Point ; IHESADD (Get CONTROLLED 
variable) 

Function ; To provide storage for an allo- 
cation of a controlled variable, and to 
place the address of its fourth word in its 
pseudo-register . 

Linkage ; 

RO; Length of area (not including con- 
trol words) 

RA; A (Controlled- variable 
pseudo-register) 

Called by : Compiled code 

Entry Point ; IHESADE (Get LWS) 

Function : To provide a new LWS f and to 
update the LWS pseudo-registers. 

Linkage : None 

Called by : Library modules 

Entry Point : IHESADF (Get Library VDA) 

Function : To provide a VDA for library 
modules and to set RA = A (VDA). 

Linkage : 

RO: Length of VDA(including control 
words) 

Called by : Library modules 

Entry Point : IHESAFA (END) 

Function : Frees the DSA current at entry 
together with its associated VDAs. Request 
to free the DSA of the main procedure 
results in raising FINISH, closing all 
opened files, releasing automatic storage 
to the supervisor and finally returning to 
the supervisor with a return code of zero. 

Linkage : None 

Called by : Epilogues 

Entry Point : IHESAFB (RETURN) 

Function : Frees all chain elements up to 
and including the last procedure DSA in the 
chain. Can terminate a main procedure as 
in IHESAFA. 

Linkage : None 



Entry Point : IHESAFC (GO TO) 

Function : The DSA indicated by the invoca- 
tion count, or pointed to by DR, is made 
current. All chain elements up to this 
ESA, with the exception of its VDAs and 
itself, are freed. 

linkage : 

RA: A (Eight- byte word- aligned parameter 

list) 
Parameter list: 

Word 1 = Either Invocation count (zero 
tit of word 2 = 0) or PR off- 
set (zero bit of word 2=1) 
Word 2 = A (Location to which control 
is to be returned) 

Called by : Compiled code 

Entry Point : IHESAFD (Free VDA/LWS) 

Function : Frees the VDA or LWS at the end 
of the DSA chain. 

Linkage : IHEQSLA; A (VDA or LWS to be 
freed) (A VDA or LWS can be freed only when 
it is the last allocation) 

Called by : Compiled code, library modules 

Entry Point : IHESAFF (Free controlled 
variable) 

Function : Frees the latest allocation of a 
controlled variable, and updates the asso- 
caited pseudo-register. 

Linkage : 

RA: A(Controlled variable 
pseudo-register) 

Called by : Compiled code 

Entry Point : IHESAFQ 

Function : To issue a DIR macro, close all 
files and return to the command mode. 

Linkage : None 

Called by : Library modules, IHEDUMP, IHE- 
WOSE, 1HEWOSS 

Entry Point ; IHESAPA 

Function : 

1. To provide a PRV and LWS for a main 
procedure, and to issue a SIR macro 
referencing the ICB created by a SPEC 
macro; then to transfer control to an 
address constant named IHEiMAIN. 
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2 - To pass a parameter from the statement 
invoking the PL/I program. 



Linkage ; 

LCLWS) from assembly of IHELIB 

Called by : Initial entry 

Entry Point : IHESAPB 

Function : As for IHESAPA, except that the 
code handling the parameter is bypassed. 

Linkage : 

LCLWS) from assembly of IHELIB 

Entry Point : IHE SAPC 

Function : As for IHESAPA, but also 
reserves a 512-byte area for optimization 
purposes. 

Linkage : 

LCLWS) from assembly of IHELIB 

Entry Point : IHESAPD 

Function : As for IHESAPB, but also 
reserves a 512-byte area for optimization 
purposes . 

Linkage : 

LCLWS) from assembly or IHELIB 

Entry Point : IHESARA 

Function : To restore the environment of a 
program to what it was before: 

1. The execution of an ON statement asso- 
ciated with the on-unit to be entered, 
or 

2. The passing of the entry parameter 
associated with the called procedure. 

Then to branch to the on-unit or the 
procedure. 

Linkage : 

RA: ACParameter list) 
Parameter list: 

ACEntry parameter). The entry parame- 
ter is an 8-byte field containing: 

1st word: On-unit or entry address 

2nd word: Invocation count of the 

DSA associated with either 
the passing procedure or 
the procedure in which the 
ON statement was executed. 



Called by : Compiled code, IHEWERR 

Entry Point : IHESARC 

Function : To place the return code in the 
pseudo-register IHEQRTC. 

Linkage : 

RA: ACParameter list) 
Parameter list: 

ACReturn code) CThe return code is 
fixed binary with default precision. ) 

Called by : Compiled code 



IHEWSHL 



Calls: IHtWEXL 

Entry Point : IHESHLS 

Function : SINHCx), where x is real long 
floating-point. 

linkage : 

RA: ACParameter list) 

Parameter list: 
ACx) 
A (Target) 

Called by : Compiled code 

Entry Point : IHES HLC 

Function : COSHCx), where x is real long 
floating-point. 

Linkage : As for IHESHLS 

Called by : Compiled code 

IHEWSHS 

Calls : IHEWEXS 

Entry Point : IHESHSS 

Function : SINHCx), where x is real short 
floating-point. 

Linkag e: 

RA: ACParameter list) 
Parameter list: 

ACx) 

ACTarget) 

Called by : Compiled code 

Entry Point : IHESHSC 

Function : COSHCx), where x is real short 
floating-point . 
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Linkage : As for IHESHSS 
Called by ; Compiled code 

IHEWSMF 

Calls : IHEWDMA, IHEWJXI 

Entry Point : IhESMFO 

Function : SUM for an interleaved array of 
real fixed-point binary or decimal ele- 
ments. Result is real short or long 
f 1 oa t i ng - p oi nt . 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A (ADV) 

A (Number of dimensions) 

A(DED of the array) 

A (Target) 

A(DED for target) 

Called by : Compiled code 



Function : SUM for an interleaved array of 
real long floating-point elements- Result 
is real long floating-point. 

Linkage : 

RA: A (Parameter list) 

Parameter list: 

MADV) 

A (Number of dimensions) 

A (Target) 

Called by : Compiled code 

Entry Point : IHESMHC 

Function : SUM for an interleaved array of 
complex long floating-point elements. 
Result is complex long floating-point. 

Linkage : As for IHESMHR 

Called by : Compiled code 



IHEWSMX 



Calls : IHEWDMA, IHEWJXI 



IHEWSMG 

Calls : IHEWJXI 

Entry Point : IHESMGR 

Function : SUM for an interleaved array of 
real short floating-point elements. Result 
is real short floating-point. 

Linkage : 

RA: A(Parameter list) 
Parameter list: 

A (ADV) 

A (Number of dimensions) 

A (Target) 

Called by : Compiled code 

Entry Point : IHESMGC 

Function : SUM for an interleaved array of 
complex short floating-point elements. 
Result is complex short floating-point. 

Linkage : As for IHESMGR 

Called by : Compiled code 



IHEWSMH 



Calls: IHEWJXI 



Entry Point : IHESMHR 



Entry Point : IHESMXO 

Function : SUM for an interleaved array of 
complex fixed-point binary or decimal ele- 
ments . Result is complex short or long 
floating-point . 

Linkage : 

R£: A(Parameter list) 

Parameter list: 

A (ADV) 

A (Number of dimensions) 

A(DED of the array) 

A (Target) 

A(DED for target) 

Called by : Compiled code 



IHEWSNL 

Entry Point : IHESNLS 

Function: SIN(x), where x is real long 
floating-point . 

Linkage : 

RA: (Parameter list) 

Parameter list: 

A(x) 

A (Target) 

Called by : Compiled code, IHEWEXZ, IHEWSNZ 

Entry Point : IHESNLZ 
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Function : SINE(x), where x is real long 
floating-point. 

Linkage : As for IHESNLS 

Called by : Compiled code 

Entry Point : IHESNLC 

Function : COS(x), where x is real long 
floating-point . 

Linkage : As for IHESNLS 

Called by : Compiled code, IHEWEXZ, IHEWSNZ 

Entry Point : IhESNLK 

Function : COSD(x), where x is real long 
floating-point . 

Linkage : As for IHESNLS 

Called by : Compiled code 

1HEWSNS 

Entry Point : IHESNSS 

Function : SIN(x), where x is real short 
f loa ti ng - poi nt . 

Linkage : 

RA: A (Parameter list) 

Parameter list: 

A(x) 

A(Target) 

Called by : Compiled code, IHEWEXW, IHEWSNW 

Entry Point : IHESNSZ 

Function : SINE(x), where x is real short 
floating-point - 

Linkage : As for IHESNSS 

Called by : Compiled code 

Entry Point : IHESNSC 

Function : COS(x), where x is real short 
f loa ting -point - 

Linkage : As for IHESNSS 

Called by : Compiled code, IHEWEXW, IHEWSNW 

Entry Point : IHESNSK 

Function : COSD(x), where x is real short 
floating-point. 

Linkage : As for IHESNSS 

Called by : Compiled code 



IliEWSN* 

Calls: IHEWEXS, IHEWSNS 

Entry Point: IHESNWS 

Function : SIN(z), where z is complex short 
floating-point . 

L inkag e: 

RA: A (Parameter list) 

Parameter list: 

ACz) 

A (Target) 

Called by : Compiled code 

Entry Point : IHESNWZ 

Function : SINH(z), where z is coirplex 
short floating-point. 

Linkage: As for IHESNWS 

Cal led by : Compiled code 

Entry Point : IHESNWC 

Function : COS(z), where z is complex short 
floating-point . 

Linkage : As for IHESNWS 

Called by : Compiled code 

Entry Point : IHESNWK 

Function : COSH(z), where z is complex 
short floating-point, 

linkage: As for IHESNWS 

Called by : Compiled code 

IHEWSNZ 

Calls: IHEWEXL, IHEWSNL 

Entry Point : IHESNZS 

Function : SIN(z), where z is complex long 
floating-point . 

Linkage : 

RA: A (Parameter list) 

Parameter list: 

ACz) 

A (Target) 

Called by : Compiled code 

Entry Point : IHESNZZ 

Function : SINH(z), where z is complex long 
floating-point. 



Section II: Module Summaries 89 



Linkage : As for IHESNZS 

Called by : Compiled code 

Entry Point : IHESNZC 

Function : COS(z) where z is complex long 
floating-point. 

Linkage : As for IHESNZS 

Called by : Compiled code 

Entry Point : IHESNZK 

Function : COSHCz), where z is complex long 
floating-point. 

Linkage : As for IHESNZS 

Called by : Compiled code 



1 HEWS PR 

Entry Point : IwESPRT 

Function : Contains the default DCLCB for 
SYSPRINT. This module is used only when no 
other DCLCB is provided. 

Called by : IBEWPRT 

IHEWSQL 

Entry Point : IHESQLO 

Function : SQRTCx), where x is real long 
floating-point. 

Linkage : 

RA: A (Parameter list) 

Parameter list: 

ACx) 

A (Target) 

Called by : Compiled code, IHEWABZ, IHEWSQZ 



1HEWSQS 

Entry Point : IHESQSO 

Function : SQRTCx), where x is real short 
floating-point. 

Linkage : 

RA: A (Parameter list) 

Parameter list: 

ACx) 

A (Target) 



Called by : Compiled code, IHEWABW, IBEWSQW 

IBEWSQW 

Calls : IHEWSQS, IHEWABW 

Entry Point : IHESQWO 

Fun ction: SQRTCz), where z is complex 
short floating-point. 

Linkage : 

RA: A (Parameter list) 

Parameter list: 

ACz) 

A (Target) 

Called by : Compiled code 

IHEWSQZ 

Calls: IHEWABZ, IHEWSQL 

Entry Point : IHESQZO 

Function : SQRT(z), where z is coirplex long 
floating-point. 

Linkage : 

RA: A (Parameter list) 

Parameter list: 

ACz) 

A (Target) 

Called by : Compiled code 



IHEWSRC 

Entry Point : IHESRCA 

Function : Returns SDV of erroneous field 
(ONSOURCE pseudo-variable) . If used out of 
context, the ERROR condition is raised. 

L inkage : 

RA: A (Parameter list) 
Parameter list: 
A (Dummy SDV) 

Called by : Compiled code 

Entry Point : IHESRCB 

Function : Assigns erroneous character to 
target (ONCHAR built-in function) . If used 
cut of context, then 'blank 1 is returned. 

Linkage : 

RA: ACParameter list) 
Parameter list: 
A (Target SDV) 
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Called by : Compiled code 

Entry Point : IHESRCC 

Function : Returns SDV of erroneous field 
(DATAFIELD) . If used out of context, a 
null string is returned. 

Linkage : As for IHESRCA 

Called by : Compiled code 

Entry Point : IHESRCD 



Function: 



Returns SDV of erroneous 



character. (ONCHAR pseudo-vaziable) . If 
used out of context, the ERROR condition is 
raised. 

Linkage : As for IHESRCA 

Called by : Compiled code 

Entry Point : IHESRCE 

Function : Returns SDV of the name of the 
file CONFILE) which caused entry to the 
current ON block. If used out of context, 
a null string is returned. 

Linkage : As for IHESRCA 

Called by : Compiled code 

Entry Point : ItfESRCF 

Function : Returns SDV of erroneous field 
CONSOURCE built-in function). If used out 
of context, a null string is returned. 

Linkage : &s for IHESRCA 

Called £»y : Compiled code 

IHEWSRD 

Entry Point : IHESRDA 

Function : Returns SDV of current key 
(ONKEY built-in function). If used out of 
context, a null string is returned. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 
A (Dummy SDV) 

Called by : Compiled code 



IHEWSRT 

Entry Points : IHEWSRTA, IBEWSRTB, 
IHEWSRTC, IhEWSRTD 



Calls: 



GATWR macro 



Function : To issue a diagnostic and return 
to command mode if an attempt is made to 
use the SORT/MERGE facility. 

Called by : Compiled code 



IHEWSSF 

Calls : IHEWDMA, IHEWJXS 

Entry Point : IHESSFO 

Function : SUM for a simple array of real 
fixed- point binary or decimal elements. 
Result is real short or long 
floating-point . 

linkage : 

R£: A (Parameter list) 

Parameter list: 

A(ADV) 

A (Number of dimensions) 

A(DED of the array) 

A (Target) 

A(DED for target) 

Called by : Compiled code 



IHEWSSG 

Calls : IHEWJXS 

Entry Point : IHESSGR 

Function : SUM for a simple array cf real 
short floating-point elements. Result is 
real short floating-point. 

Linkage : 

RA: A (Parameter list) 

Parameter list: 

A(ADV) 

A (Number of dimensions) 

A (Target) 

Called by : Compiled code 

Entry Point : IHESSGC 

Function : SUM for a simple array of com- 
plex short floating-point elements. Result 
is complex short floating-point. 

Linkage : As for IHESSGR 

Called by : Compiled code 



IHEWSSH 



Calls: IHEWJXS 



Entry Point : IHESSHR 
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Function : SUM for a simple array of real 
long floating-point elements. Result is 
real long floating-point. 



Linkage : 

RA: A (Parameter list) 

Parameter list: 

A(ADV) 

A (Number of dimensions) 

A(Target) 

Called by : Compiled code 

Entry Point : 1HESSHC 

Function : SUM for a simple array of com- 
plex long floating-point elements- Result 
is complex long floating-point. 

Linkage : As for IHESSHR 

Called by : Compiled code 

1HEWSSX 

Calls : IHEWDMA, IEEWJXS 

Entry Point : IHESSXO 

Function : SUM for a simple array of com- 
plex fixed-point binary or decimal ele- 
ments. Result is complex short or long 
floating-point . 

Linkage : 

RA: AtParameter list) 

Parameter list: 

A(ADV) 

A (Number of dimensions) 

A(DED of the array) 

A (Target) 

A(DED for target) 

Called by : Compiled code 



1HEWSTG 

Calls : I HEW J XI , IHEWBSK 

Entry Point : IHESTGA 

Function : Given a structure dope vector 
and its DVD, returns a fullword containing 
the string length which would result from 
the concatenation of all the elements of 
the structure. 

Linkage : 

RA: A (Structure dope vector) 

RB: A (DVD) 

RC: A (One-word target field) 



Called by : Compiled code 

Entry Point : IHESTGB 

Function : Given a structure dope vector 
and its DVD, assigns the result of conca- 
tenating all the elements of the structure 
to a string target. 



Linkage : 



RA 
RB 
RC 



A (Structure dope vector) 

A (DVD) 

A(Target) 



Called by : Compiled code 



IHEWSTP 

Calls: IHEWBSK, IHEWBSM, IHEWJXI 

Entry Point : IHESTPA 

Function : Assigns a bit or character str- 
ing to the elements of a scalar, array or 
structure variable. 

linkage: 

RA: A (Dope Vector) 

RB: A (Dope Vector Descriptor) 

RC: A(SDV) 

Called by : Compiled code 

IHEWSTR 

Calls : IHEWSAF, IHEWTSA 

Entry Point : IHESTRA 

Function : To compute the address of the 
first element of a structure and the total 
length of the structure, using a complete 
structure dope vector. The result in the 
two-word target field is: 

1st word: A (Start of structure), in 
bytes and bit offset 

2nd word: Length of structure, in bytes 

Linkage : 

RA: A (Structure dope vector) 

RE: A (DVD) 

RC: A (Two-word target) 

C alled by : Compiled code 

Entry Point : IHESTRB 

Function: Given a partially completed 
structure dope vector, to map a structure 
completely, namely: 
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1. Locating each structure base element 
on the alignment boundary required ny 
its data type. 

2. Calculating the offset of the start of 
each base element from the byte 
address cf the beginning of the 
structure. 

3. Calculating the multipliers of all 
arrays appearing in the structure and 
calculating the offset of the virtual 
origin of each array from the byte 
address of the beginning of the 
structure. 

4. Calculating the total length of the 
structure. 

5. Calculating the offset from the maxi- 
mum alignment boundary in the struc- 
ture to the byte address of the start 
of the structure. 



The result is a completed structure dope 
vector, and a target field which contains: 

7 8 31 

r . 1 

| Zero [ 

^ T 4 

| Offset | length | 

L J. . _. , J 

Offset ; Offset in bytes from tne maximum 
alignment boundary in the structure to the 
start of the structure. 

Length : Length of structure, in bytes. 

Linkage : As for IHESTRA 

Called by : Compiled code 

Entry Point : IrifcSTRC 

Function : As for IHESTRB, but using the 
COBOL structure mapping algorithm. 

Linkage : As for IHESTRA 

Called by : Compiled code 

1HEWTAB 

Base Address of Table: 1HETABS 



Function: 



This module is a table of 



default information provided for use at 
installation or when individual program 
replacements are required. I*- contains: 

1. Default PAGESIZE, LINESIZE, and left 
and right margin positions for all 
PRINT files. 



2. Default tabulation positions for list- 
and data-directed PRINT file output. 



IriEwTEA 

Entry Point : IHETEAA 

Function : Event variable assignment 

Linkage : 

RA: A (Source event variable) 

RB: A (Target event variable) 

Called by : Compiled code 

IH|W1£V 

Entry point : IHETEVA 

Function : COMPLETION pseudo-variable 
(COMPLETION (v) = expression): sets the 
specified event variable complete or incom- 
plete according to the evaluation cf the 
expression. 

Linkage: 

RA: A (Parameter list) 
Parameter list: 

A (Event variable) 

A(Fullword to hold completion value 
(in bit 24) ) 

Called by : Compiled code 

IHEWTHL 

Calls: IhEWEXL 

Entry Point : IBETHLO 

Function: TANH(x), where x is real long 
floating-point. 

linkage : 

RA: A (Parameter list) 
Parameter list: 

A(x) 

A (Target) 

Called by : Compiled code, IHEWTNZ 

IHEWTHS 

Calls: IHEWEXS 

Entry Point : 1HETHS0 

Function : TANH(x), where x is real short 
floating-point. 
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Linkage : 

FA: ACParameter list) 
Parameter list: 
A(x) 

A(Target) 

Called by : Compiled code, 1HEWTNW 



1HEWTN1 

Entry Point : IHETNLR 

Function : TANCx) , where x is real long 
f loating-poi nt. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A(x) 

A(Target) 

Called by : Compiled code, IHEWTNZ 

Entry Point : IHETNLD 

Function : TAND(x) , where x is real long 
floating point. 

Linkage : As for IHETN1R 

Called by : Compiled code 

1HEWTNS 

Entry Point : IHETNSR 

Function : TAN(x) , where x is real short 
f loa ti ng - poi nt . 

Linkage : 

RA: ACParameter list) 
Parameter list 
ACx) 

A (Target) 

Called py : Compiled code, IHEWTNW 

Entry Point : IHETNSD 

Function : TAND(x) , where x is real short 
floating-point. 

Linkage : As for IHETNSR 

Called by : Compiled code 

IHEWTNW 

Calls : IHEWTHS, IHEWTNS 

Entry Point : IHETNWN 



Function : TAN(z) where z is complex short 
floating point. 

Linkage : 

RA: A(Parameter list) 
Parameter list: 
A(z) 

A (Target) 

Called by : Compiled code 

Entry Point : IHETNWH 

Function : TANH(z), where z is complex 
short floating-point. 

Linkage : As for IHETNWN 

Called by : Compiled code 



IHEWTNZ 

Cal ls: IHEWTHI, IHEWTNL 

Entry Point : IHETNZN 

F unction : TAN(z), where z is complex long 
floating-point. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 
A(z) 

A (Target) 

Called by : Compiled code 

Entry Point : IHETNZH 

Function : TANH(z), where z is complex long 
floating-point . 

Linkage : As for IHETNZN 

Called by : Compiled code 



IHEWTOK 

Calls : Supervisor (GATWR) 

Entry Point : IHETOMA 

Function : Write error messages on SYSOUT. 

linkage: 

RA: Address of fullword containing the 

length of the message. 
RE: Address of the error message text. 

Called by : IHEBEG, IHECKP, IHEOCL, IHERES, 
IHESRT. 
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IHEWTSA 



Entry Point : IHEUPBB 



Calls : System (GATWR) 

Entry Points : IHETSAA? IHETSAP 

Function : To issue a diagnostic and return 
to command mode because of an attempt to 
use multitasking. 



IHEWUPA 



Entry Point : IHEUPAA 

Function : To zero the real part of a com- 
plex coded data item and to return the 
address of the imaginary part. 



Function : To return the address of the 
imaginary part of a complex numeric field 
if switch is on, and to zero the imaginary 
part if switch is off. 



Linkage : 

RA: 
RB: 

WSWA 
WRCD 



ACSource) 

A (Source DED) 

: Switch for update address only 
: A (Imaginary part) 



Called by : IHEWDBN, IHEWDCN, IHEWDIA, IHE- 
WDID, IHEWDIE, IHEWDOM, IHEWLDI, IHEWVCS 



IHEWVCA 



Linkage : 

RA: A (Source) 

RB: ACSource LED) 
WRCD: A (Imaginary part) 

Called by : IHEWDCN, IHEWDBN 

Entry Point : IHEUPAB 

Function : To return the addr€*ss of the 
imaginary part of a complex coded data item 
if switch is en, and to zero the imaginary 
part if switch is off. 



Entry Point : IBEVCAA 

Function : To define the attributes of ari- 
thmetic data in character form by producing 
a DED (flags, p, q) . 

Linkage : 

RA: A(Target DED) 

WNCP; A (Start and end addresses of data 
to be analysed) 

Called by : IHEWDIA, IHEWDIM, IHEWDOM, 

IHEWLDI 



Linkage : 

RA: ACSource) 

RB: A (Source DED) 

WSWA: Switch for update address only 

WRCD: A (Imaginary part) 

Called by : IHEWDBN, IHEWDCN, IHEWDIA, IHE- 
WLDI, IHEWDID, IHEWDIE, IHEWDNC, IHEWDOM, 
IHEWVCS 



1HEWUPB 



Calls: 



IHEWDMA 



Entry Point : IHEUPBA 

Function : To zero the real part of a com- 
plex numeric field and to return the 
address of the imaginary part. 



Linkage : 

RA: ACSource) 
RB: ACSource DED) 
WRCD: A (Imaginary part) 

Called by : IHEWDCN, IHEWDBN 



iHtwyct; 

Calls: IHEWDMA, IHEWDNB, IHEWDNC, IHEWUPA 

Entry Point : IHEVCSA 

Function : To direct the conversion of 
character representation of complex data to 
internal string data. The character data 
is first converted to coded complex, with 
attributes derived from the real and 
imaginary parts of the source data (accord- 
ing to the arithmetic conversion package 
rules) and then converted to string. 

Linkage: 

RA: A (Parameter list) 
Parameter list: 

A (Start and end addresses of real 
data) 

A (Real DED) 

A (Start and end addresses of imaginary 
data) 

A (Imaginary DED) 

A (Target SDV) 

A (Target DED) 

A (Real FED) 

A (Imaginary FED) 

Called by : IHEWDIM, IHEWDOM, IHEWLDI 
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Entry Point : IHEVCSB 

Function : As for IHEVCSA but the conver- 
sion is to coded complex only. 

Linkage : As for IHEVCSA 

Called by : As for IHEVCSA 

IHEWVFA 

Calls : IHEWVTB 

Entry Point : IHEVFAA 

Function : Radix conversion: binary to 
decimal. To convert long floating-point to 
packed decimal intermediate. 

Linkage : 

WINT: Long precision floating-point 
number 

Called by : IHEWDMA 



IHEWVFD 

Entry Point : IHEVFDA 

Function : To convert a fixed- point binary 
integer with scale factor to long precision 
floating-point. 

Linkage : 

R£: A (Source) 
RB: A (Source DED) 

Called by : IHEWDMA 



IHEWVFE 

Entry Point : IHEVFEA 

Function : To convert a floating-point num- 
ter of specified precision to long preci- 
sion floating-point. 

Linkage : 

RA: A(Source) 

RB: A (Source DED) 



IHEWVFB 



Entry Point : IHEVFBA 



Called by : IHEWDMA 



Function : To convert a long precision 
floating-point number to a fixed-point 
binary number with specified precision and 
scale factor. 



Linkage : 

WINT: Long precision floating-point 

number 
WRCD: A (Target) 

A (Target DED) 



Called by : IHEWDMA 



IirlEWVKB 

Entry Point : IHEVKBA 

Function : To convert a fixed- or floating- 
point decimal numeric field to packed 
decimal intermediate. 

Linkag e: 

RA: A(Source) 

RE: ACSource DED) 

Called by : IHEWDMA 



IHEWVFC 



Entry Point : IHEVFCA 



Function : To convert a long floating-point 
number to a floating-point variable with 
specified precision. 



Linkage : 

WINT: Long-precision floating-point 

number 
WRCD: A (Target) 

ACTarget DED) 



Called by : IHEWDMA 



IHEWVKC 

Entry Point : IHEVKCA 

Function : To convert a sterling numeric 
field to packed decimal intermediate. 

Linkage : 

RA: A(Source) 

RB: A(Source DED) 

Called by : IHEWDMA 

IHEWVKE 

Entry Point : IHEVKFA 
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Function : To convert packed decimal inter- 
mediate to a decimal fixed- or floating- 
point numeric field with specified 
precision. 

Linkage 



WINT: 


Decimal integer 


WSCF: 


Scale factor 


WRCD: 


A(Target) 




A (Target DED) 


Called by 


: IHEWDMA 



IrlEWVPC 

Entry Point : IHEVPCA 

Function : To convert packed decimal inter- 
mediate to an E format item. 

Linkage : 

WINT: Decimal integer 

WSCF: Scale factor 

WFDI: A (FED) 

WRCD: A (Target) 

Called by : IHEWDMA 



IHEWVKG 



Entry Point : IHEVKGA 

Function : To convert packed decimal inter- 
mediate to a sterling numeric field with 
specified precision. 



Linkage : 

WINT 
WSCF 
WRCD 



Decimal integer 

Scale factor 

A(Target) 

A (Target DED) 



Called by : I HEW DMA 



IHEWVPL 

Entry Point : IHEVPDA 

Function : To convert packed decimal inter- 
mediate to a decimal integer with specified 
precision and scale factor. 

Linkage 



WINT: 


Decimal integer 


WSCF: 


Scale factor 


WRCD: 


A(Target) 




A (Target DED) 


Called by 


: IHEWDMA 



IHEWVPA 



Calls: 



IHEWVTB 



IHEWVPE 



Entry Point : IHEVPAA 

Function : Radix conversion: decimal to 
binary. To convert packed decimal interme- 
diate to long precision floating-point. 

Linkage : 

WINT: Decimal integer 
WSCF: Scale factor 

Called by : IHEWDMA 



Entry Point : IHEVPEA 

Function : To convert an F/E format iteir to 
packed decimal intermediate. 

L inkage : 

RA: A (Source) 

RB: A (Source DED) 

WEED: A(FEE) 

C alled by : IHEWDMA 



IHEWVPB 

Entry Point : IH EVPB A 

Function : To convert packed decimal inter- 
mediate to an F format item. 

Linkage : 



WINT: 


Decimal integer 


WSCF: 


Scale factor 


WFDT: 


A(FED) 


WRCD: 


A (Target) 


Called by 


: IHEWDMA 



IHEWVPF 



Entry Point : I H EVP FA 



Function : To convert a decimal integer 
with specified precision and scale factor 
to packed decimal intermediate. 



Linkage : 



RA: 
RE: 



A(Source) 

A (Source DED) 



Called by : IHEWDMA 
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IHEWVPG 

Entry Point ; IHEVPGA 

Function ; To convert a binary fixed- or 
floating-point constant to long precision 
floating-point . 

Linkage ; 

WCNP: A (Beginning of constant) 
A (End of constant) 

Called by ; IHEWDMA 



IHEWVPH 

Entry Point : IHEVPHA 

Function ; To convert a tit string constant 
with up to 31 significant bits to long pre- 
cision floating-point. 



Linkage : 



WCN1: 



A (Beginning of constant) 
A (End of constant) 



Called by : IHEWDMA 

IHEWVQA 

Entry Point : IHEVQAA 

Function : To convert a floating point num- 
ber of specified precision to a fixed-point 
binary number with specified precision and 
scale factor. 



Linkage : 

RA: 
RB; 
RC: 
RD: 



A (Source SDV) 

A (Source DED) 

A (Target SDV) 

A (Target DED) 



Called by : Compiled code, IHEWVQB 

1HEWVQB 

Calls : IHEWVQA, IHEWVTB 

Entry Point : IHEVQBA 



WSWB: Switches specifying type of 
source string 

Called by : IHEWDCN, IHEWDIA 

IHEWVQC 

Calls: IHEWVSC, IHEWVSE 

Entry Point ; IHEVQCA 

Function : To convert some coded arithmetic 
data types to F or E format or character 
string. 

Linkage : 

RA: A (Source SDV) 
RE: A(Source DED) 
RC: A (Target SDV) 
RD: A (Target DED) 
WFDT: A (FEE) 

WSWB: Switches specifying type of tar- 
get string 

Called by : IHEWDNC, IHEWDCA 

IHEWVSA 

Entry Point : IHEVSAA 

Function : To assign a fixed-length or 
VARYING bit string to a fixed-length or 
VARYING bit string. 

Linkage : 



RA; A(Source SDV) 

RB: A (Source DED) 

RC: A(Target SDV) 

RE: A(Target DED) 

Called by : Compiled code, IHEWDIA, IHEWDNB 



IHEWVSB 



Entry Point : IHEVSBA 

Function : To convert a fixed-length or 
VARYING tit string to a fixed-length or 
VARYING character string. 

Linkage : 



Function: 



To convert a decimal constant to 



a coded arithmetic data type. 



Linkage : 

RA; 
RB: 
RC: 
RD: 
WFED: 



A (First character of constant) 
A (Last character of constant) 
A (Target) 
A (Target DED) 

A (FED) if constant is part of 

or E format input 



RA: A(Source SDV) 

RE: A (Source DED) 

RC: A (Target SDV) 

RD: A (Target DED) 

Called by : Compiled code, IHEWDOB, IHEW- 
EOD, IHEWDOE, IHEWLDO 

IHEWVSC 

Entry Point : IHEVSCA 
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Function: To assign a fixed-length or 
VARYING character string to a fixed- length 
or VARYING character string. 

Linkage ; 



RA: A (Source SDV) 

RB: A (Source DED) 

RC: A (Target SDV) 

RD: A (Target DED) 

Called by : Compiled code, IHEWDIA, IHEW- 
DIB, IHEWDID, IHEWDIE, IHEWDNC, IHEWDOB, 
IHEWDOD, IHEWLDI, IHEWVQC 



IHEWVSD 

Entry Point : IHEVSDA 

Function : To convert a fixed-length or 
VARYING character string to a fixed-length 
or VARYING bit string. The ON SOURCE 
address is stcred. 

Linkage : 

RA: A (Source SDV) 
RB: A (Source DED) 
RC: A (Target SDV) 
RD: A (Target DED) 
WODF: A(Scurce SDV) 

Called by : Compiled code , IHEWDIB, IHEW- 
DID, IHEWDIE, IHEWLDI 

Entry Point : IHEVSDB 

Function : As for IHEVSDA, but the ONSOURCE 
address is not stored. 

Linkage : As for IHEVSDA, two without WODF 

Called by : As for IHEVSDA 

IHEWVSE 

Entry Point : IHEVSEA 

Function : To assign a fixed-length or 
VARYING character string to a pictured 
character string. The ONSOURCE address is 
stored. 



Linkage : 

RA: A (Source SDV) 
RB: A (Source DED) 
RC: A (Target SDV) 
RD: A (Target DED) 
WODF: A(Scurce SDV) 

Called by : Compiled code, IHEWDIB, IHEW- 
DID, IHEWDIE, IHEWDOB 



Entry Point : IHEVSEB 

Function : As for IHEVSEA, but the ONSOURCE 
address is net stored. 

Linkage: As for IHEVSEA, tut without WODF 

Called by : IHEWDNC, IHEWVQC 



IHEWVSF 



Entry Poin t: IHEVSFA 

Function : To convert a fixed- length or 
VARYING bit string to a pictured character 
string • 



Linkaqe : 




RA: 


A (Source 


SDV) 


RE 


: MSource 


DED) 


RC 


A (Target 


SDV) 


RD: 


A (Target 


DED) 



Called by : Compiled code, IHEWDOB 



IhEWVTB 

Base Address of Table : IHEVTBA 

Function : This module is a table of long 
precision floating-point numbers represent- 
ing powers of 10 from 1 to 70. It is used 
by the IHEVWQB radix conversion routines 

IHEWVPA, and IHEWVFA. 

Li nkaqe : Not called. Referenced as 
external data by IHEWVPA, IHEWVQB and 

IHEWVFA. 



InEWXxo 

Entry Point : IHEXIBO 

Function : x**n, where x is real fixed- 
point binary and n is a positive integer. 

Linkaqe: 

RA: A(x) 

*RB: A (DED for x) 

RC: A(n) 

RD: A (Target) 

*RE: A (Target DED) 

Called by : Compiled code 



IJHEWX1D 

Entry Point : IHEXIDO 

Function : x**n, where x is real fixed- 
point decimal, and n is a positive integer. 
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Linkage : 

RA: A(x) 

RB; A (DED for x) 

RC: A(n) 

RD: A(Target) 

RE: A (Target DED) 

Called by ; Compiled cede 

1HEWXIL 

Entry Point : 1BEXIL0 

Function : x**n, where x is real long 
floating-point, and n is an integer. 

Linkage : 

RA: A(x> 
RB: ACn) 
RC: A (Target) 

Called ay ; Compiled code 

IHEWXIS 

Entry Point : THEXISO 

Function : x**n, where x is real snort 
floating-point, and n is an integer. 

Linkage : 

RA: A(x) 

RB: A(n) 

RC: A(Target) 

Called by : Compiled code 

1HEWXIU 

Calls : IHEWjyjZU 

Entry Point : IHEXIUO 

Function : z**n, where z is complex fixed 
binary and n is a positive integer. 

Linkage : 

RA: A(z) 

*RB: A (DED for z) 

RC: A(n) 

RD: A(Target) 

*RE: A (Target) 

Called by : Compiled code 



IHEWXIV 



Calls: 



IHEWMZV 



Entry Point : IHEXIVO 



Function : z**n, where z is complex fixed- 
point decimal and n is a positive integer. 

Linkage : 

RA: A(z) 

RB: A (DED for z) 

RC: A(n) 

RD: A (Target) 

*RE: A (Target DED) 

Called by : Compiled code 



IriEWXI W 

Calls : IBEWMZW 

Entry Point : IHEXIWO 

Function : z**n, where z is complex short 
floating-point, and n is an integer. 

Linkage: 

RA: A(z) 
RB: A(n) 
RC: A (Target) 

Called by : Compiled code 



1HEWX1Z 

Calls : IHEWMZZ 

Entry Point : IHEXIZO 

Function : z**n, where z is complex long 
floating/point, and n is an integer. 

Linkage : 

RA: A(z) 

RB: A(n) 

RC: A(Target) 

Called by : Compiled code 



IriEWXXL 

Calls: IHEWEX1, IHEWLNL 

Entry Point : IHEXXLO 

Function : x**y, where x and y are real 
long floating-point. 

Linkage : 

RA: A(y) 
RE: A(x) 
RC: A (Target) 

Called by : Compiled code 
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IHEWXXS 



Linkage : 



Calls : IHEWEXS, IHEWLNS 

Entry Point : IHEXXSQ 

Function : x**y, where x and y are real 
short floating-point. 

Linkage : 

RA: A(y) 
RB: A(x) 
RC: A (Target) 

Called by : Compiled code 
IHEWXXW 



Calls : IHEWEXW, IHEWLHS, IHSWINW 

Entry Point : IHEXXWO 

Function : z 1 **z 2 » where z ± £nd z 2 are com- 
plex short floating-point. 



Linkage : 

RA: A(z 2 ) 
RB: A(z ± ) 
RC: A (Target) 

Called by : Compiled code 



IHEWXX? 

Calls : IHEWEXZ, IHEWLNL, IHEWLNZ 

Entry Point : ItiEX^ZO 



Function : z±**z.z t where z ± and z 2 are com- 
plex long floating-point. 



Linkage : 

RA: A(z 2 ) 
RB: A(z ± ) 

RC: A (Target) 

Called by : Compiled code 



IHEWYGF 



Calls: IBEWDMA 



Entry Point : IHEYGFV 



Function : POLY (A r X) for bo Lh A and X vec- 
tors of real fixed-point binary or decimal 
numbers. Result is real short or long 
floating-point . 



RA: A(Parameter list) 
Parameter list: 

A(ADV of argument 1) 

A(DED of argument 1) 

A(AEV of argument 2) 

A(DED of argument 2) 

A (Target) 

A (BED of target) 

Called by : Compiled code 

Entry Point : IHEYGFS 

Function : As for IHEYGFV but X is scalar, 

Linkag e: 

RA: A (Parameter list) 
Parameter list: 

ACAEV of argument 1) 

A(DED of argument 1) 

A (Argument 2) 

A (LED of argument 2) 

A (Target) 

A(DED of target) 

Called by : Compiled code 



InEWYGL 

Entry Point : IHEYGLV 

Function : POLY (A,X) for both A and X vec- 
tors of real long floating-point numbers. 
Result is real long floating-point. 

Linka ge : 

RA: A (Parameter list) 
Parameter list: 

A(ABV of argument 1) 

A(ADV of argument 2) 

A (Target) 

Ca lled by : Compiled code 

Entry Point : IHEYGLS 

Function : As for IHEYGLV but X is scalar. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A(AEV of argument 1) 

A (Argument 2) 

A(Target) 

Called by : Compiled code 



IHEWYGS 



Entry Point : IHEYGSV 
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Function : POLY (A,X) for both A and X vec- 
tors of real short floating-point. Result 
is real short floating-point. 

Linkage ; 

RA: A (Parameter list) 
Parameter list: 

ACAEV of arguirent 1) 

A(ADV of argument 2) 

A (Target) 

Called by : Compiled code 

Entry Point : IHEYGSS 

Function : As for IHEYGSV but X is scalar. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A(ADV of argument 1) 

A (Argument 2) 

A(Target) 

Called by : Compiled code 



1HEWYGW 

Entry Point : IHEYGWV 

Function : POLY (A,X) for both A and X vec- 
tors of complex short floating-point. 
Result is complex short floating-point. 

Linkage : 

RA: A(Parameter list) 
Parameter list: 

A(ADV of argument 1) 

A(ADV of argument 2) 

A(Target) 

Called by : Compiled code 

Entry Point : IHEYGWS 

Function : As for IHEYGWV, but X is scalar. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A(ADV of argument 1) 

A(Argument 2) 

A (Target) 

Called by : Compiled code 

IhEWYGX 

Calls : IHEWBMA 

Entry Point : IHEYGXV 



Function : POLY (A,X) for both A and X vec- 
tors of complex fixed- point binary or 
decimal numbers. Result is complex short 
cr long floating-point. 



Linkage: 

RA: A (Parameter list) 
Paraireter list: 

A(ADV of argument 1) 

A (BED of argument 1) 

A(ADV of argument 2) 

A(DED of argument 2) 

A (Target) 

A(EEB of target) 

Cal led by: Compiled code 

Entry Point : IHEYGXS 

Function : As for IHEYGXV, but X is scalar. 

linkag e: 

RA: A (Parameter list) 
Parameter list: 

A(AEV of argument 1) 

A(DED of argument 1) 

A (Argument 2) 

A(DED of argument 2) 

A(Target) 

A (LED of target) 

Called by : Compiled code 



IHEWYGZ 

Entry Point : IHEYGZS 

Function : As for IHEYGZV, but X is scalar. 

Linkage: 

RA: A(Parameter list) 
Parameter list: 

A(AEV of argument 1) 

A (Argument 2) 

A (Target) 

Called by : Compiled code 

Entry Point : IHEYGZV 

Function : POLY (A,X) for both A and X vec- 
tors of complex long floating-point num- 
bers . Result is complex long 
floating-point. 

Linkage : 

RA: A (Parameter list) 
Parameter list: 

A(AEV of argument 1) 

A (ABV of argument2) 

A (Target) 
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Called by : Compiled code Called by : IHEWDUW 



IHEWZZC IHEWZZF 

Calls ; IHEWZZF Entry Point : IHEZZFA 

Entry Point : IHEZZCA Function : To provide the save area trace 

that forms part of the output produced by 
Function : To provide information about IHLWZZC. 
open files and save areas. In nonconversa- 
tional mode, a dump is given. Linkage : 

Linkage : RA: A (Parameter list) 

See source listing for parameter list. 
RA: A(Parameter list) 
See source listing for parameter list. Called by : IHFWZZC 
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SECTION III 



DATA AREA LAYOUTS 



COMPILER-GENERATED CONTROL BLOCKS 



This is a description of all the 
compiler- generated control blocks used by 
the PL/I Library. They are in alphabetical 
order, except for the Input/Output Control 
Blocks and the Storage Management Control 
Blocks, which are described separately 
later in this section. All offsets are 
given in hexadecimal form. 



ARRAY DOPE VECTOR CADV) 

This control block (see Figure 46) con- 
tains information required in the deriva- 
tion of elemental addresses within an array 
data aggregate. The ADV is used for three 
functions within the library: 

1. Given an array, to step through the 
array in row-major order. 

2. Given the subscript values of an array 
element, to determine the element 

-address . 

3. Given an element address, to determine 
its subscript values. 

Within PL/I implementation, arrays are 
stored in row-major order, upward in 
storage. The elements of an array are 
normally in contiguous storage; if the 
array is a member of a structure, its ele- 
ments may be discontiguous. Such disconti- 
guity, however, is transparent to 
algorithms which employ an array dope 
vector. 



2 3 



r t- 

BtO | 

f" X " 



7 8 

— T — 



h 



15 16 
Virtual origin 



31 



Multiplier ± 



Multiplier n 



Upper bound ± 



Lower Dound ± 



j. 4- 

| Upper bound n | 



Lower bound r 



Figure 46. Format of the Array Dope Vector 
(ADV) 



The ADV contains (2n + 1) 32-bit words, 
where n is the number of dimensions of the 
array. The number of dimensions in the 
array is not described within the ADV, but 
is passed to the library as an additional 
argument. 

Definitions of ADV Fields : 

EtO (= Bit offset) 

for an array of bit strings with the 
UNALIGNED attribute, this is the bit 
offset from the byte address cf the 
virtual origin. 

Virtual origin 

the byte address of the array element 
whose subscript values are all zero, 
i.e., X(0,...,0); this element need 
not be an actual member of the array, 
in which case the virtual origin will 
address a location in storage outside 
the actual bounds of the array. 

Multiplier 

these are fullword binary integers 
which, in the standard ADV algorithm, 
effect dimensional incrementation or 
decrementation to locate an element. 
Bit multipliers are used for fixed- 
length bit string arrays; byte multip- 
liers are used for everything else. 

Upper Bound 

Halfword binary integer, specifying 
the maximum value permitted for a sub- 
script in the ith dimension. This 
value may be negative. 

Lower Bound 

halfword binary integer, specifying 
the minimum value permitted for a sub- 
script in the ith dimension. The 
value may be negative. 

ADV Algorithm 

given subscript values for an n- 
dircensicnal array, the address of any 
element is computed as: 



Address = origin + 



S *M 



i=l 



where S = value of the ith subscript 
M = value of the ith multiplier 

For an array of bit strings with the 
UNALIGNED attribute, the origin is a bit 
address formed by concatenating the virtual 
origin and the bit offset. For all other 
arrays, the origin is the virtual origin. 
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I f T T — 

Data type | Representation | 1 | 2 | 3 



Eytes 
— T 

I 



^ 



| 5 | 6 and onwards 



(. „x _ + + „_„ + - x „ + x„ ., 



Arithmetic I 



Fixed- point 
Floating-point 
Packed decimal 






I 



Numeric field 



I Flags | p | q 

1 1 1 

_x ,, + + „_ 

I Flags | p | q 



1 | Picture specn 



f. + .. „ + — — _„ + + _ x + — „ + 4 



String 



I- 



[ Flags 

-+ -+- 

j Flags j 

-1 . — X . X„ 

Figure 47. Format of the Data Element Descriptor (DED) 



Unpictured 
Pictured 



l 1 . — X . J. X . . J 



I 

_X X 

Picture specification 



Data element descriptors (DEDs) contain 
information derived from explicit or impli- 
cit declarations of variables of type ari- 
thmetic and string. There are four DED 
formats; they are shown in Figure 47. 

Definitions of DED fields : 

Flags 

an eight-bit encoded forri of declared 
information (Figure 48) . Those flags 
which are specified as zero must be 
set to zero. 

p byte 

p is the declared or default precision 
of the data item. 

q byte 

q is the declared or default scale 
factor of the data item, in excess-128 
notation (i.e., if the implied frac- 
tional point is between the last and 
the next-to-last digit, q will have 
the value 129) . 



For numeric fields, q is the resultant 
scale factor derived from the apparent 
precision as specified in the picture, 
i.e., the number of digit positions 
after a V picture item as modified by 
an 3? (scale factor) item. 

For fixed decimal pictures, any expli- 
cit scaling of the form F(±l) is com- 
bined with the implied scale, as 
described above, and reflected in the 
DED. The F (±1) is then no longer 
required and is removed from the 
picture. 

w byte 

w specifies the number of storage 
units allocated for a numeric field. 

1 byte(s) 

1 specifies the number of bytes allo- 
cated for the picture associated with 
a numeric field. If the data item is 
string, 1 occupies two bytes; if ari- 
thmetic, one byte. 
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Code 



^ x_„ 
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H 



= l 



= o 



Bit 







T T" 
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String 
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| Non- 
1 = 






+ - 



* | Unaligned | Fixed 

+ _„ + 

I I 

* I Aligned ( Varying 

-+ 

I 

* | sterling | Short 

«| Arithmetic (- -j- -f — 

= 1 | 1*1 Sterling | Long 

x x x . . x, x, 



_ T 

i 5 







-+ 







Picture) Bit 

^x 

No I 

Picturej Character 

Numeric j 

field j Decimal 

| Coded j Binary | Float | Complex 

._ X X X .| 



Fixed 



x „ + . 4 



Real 



J. X X X . . X, 

* These bits are used by the compiler, but, when a DED is passed to a library module, 
they are always set to zero. 

Note : The hexadecimal ■ 10 f superimposed on the DED Flag byte indicates the presence 
of a half word fixed point binary variable. Bit 3 is set to 1 and bit 6 is set 
to 0. 



L . . . . . 



. J 



Figure 48. Format of the DED Flag Byte 
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Picture specification 

this field contains the picture 
declared for the data item. If the 
data item is string, the picture may 
occupy 1 through 32,767 bytes; if ari- 
thmetic, 1 through 255 bytes. If the 
original picture specification con- 
tained replication factors, it will 
have been expanded in full. 



DOPE VECTOR DESCRIPTOR (DVD) 

This provides a key for scanning the 
standard array, string and structure dope 
vectors. It consists of one entry for each 
major structure, minor structure and base 
element in the original declaration. Each 
entry consists of one word and can have one 
of two formats: 



L = 
F5 = 

F6 = 

N = 
F3 = 

F4 = 

A = 

D = 



Level of element 

Area variable 
Not area variable 



1 Event variable 

Not event variable 

Dimensionality 

Not an aligned bit string 

1 Aligned bit string 

Not a varying string 

1 Varying string 

Alignment in bits (0 to 63) 

Length, if not a string, in 

bits 

if a string, in which case 

the length is in the dope 

vector 



Structures 

12 7 8 15 

r — T — T T . 1 

|Fl|F2| L | N | 

L X J X J 

16 31 

r 1 

| Offset J 

L J 

Fl = Structure 

F2 =0 

L = Level of structure 

N = Dimensionality, including 
inherited dimensions 

Offset- Offset of containing 

structure from start of 
DVD 
= - 1 for a major structure 



FORMAT ELEMENT DESCRIPTOR (FED) 

This control block contains information 
derived from a format element within a for- 
mat list specification for edit-directed 
I/O. There are five forms of the FED: 



Format item E: 



"T T 1 

I d I s I 

-X X J 



w - width of data field in characters 

d = number of digits following decimal 
point 

s = number of significant digits to be 
placed in data field (ignored for 
input) 



Format item F: 



2. Base element: 

12 7 8 9 10 15 

r — T — T T — T — T 1 

|F1|F2| L |F5|F6| N | 

l X J X X X .J 

16 17 18 23 24 31 

r — T — T T — T — T ., 

|F3|F4| A 111 D | 

I I X . X X X J 

Fl = 1 Base element 

F2 = Not end of structure 
= 1 End of structure 



"T T "1 

I d | p | 

_X X J 



w and d: as for E format 

p = scale factor in excess-126 
notation 

Format items A, B, X: 
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w = as for E format 
4. Format item P: 



There are two forms of the FED for the 
P format items, these being identical 
to the DEDs for numeric fields and 
pictured character strings. 



LIBRARY COMMUNICATION AREA (LCA) 

The library communication area (LCA -- 
see Figure 49) is part of library workspace 
CLWS) t the format of which is given in 
Figure 50. The use of LWS and LCA is 
described in "Communication Conventions" in 
Section II. 



5. Printing format items PAGE, SKIP, 
LINE, COLUMN: 



The FEDs for SKIP, LINE and COLUMN are 
half word binary integers. PAGE does 
not have an FED. 



LIBRARY WORKSPACE (LWS) 

The use of the Library Workspace (LWS) 
is described in Section II. The format of 
the LCA is given in Figure 49 and that of 
the SSA in Figure 51. 





4 

8 

10 

14 
18 
20 
29 
2A 
2B 
2C 
34 
38 

CE 
D2 

D6 
DE 
E6 
EA 

F2 
F6 



r T T . . — . 


| Symbolic 


Length i 




| name | 

1 J 


(bytes) 


Function 


r 1 


_. 


. . . . , . . 


| WBRl 


4 


2nd address for communication in arithmetic conversion 
package. 


| WER2 


4 


3rd address for communication in arithmetic conversion 
package. 


| WRCD 


8 


A (Target) , A (DED) : Implicit parameters for final conversion 
in arithmetic scheme. Stored by arithmetic director. 


| WFED 


4 


A (Source FED): Implicit parameter for F or E format input 

conversion. 


1 WSCF 


4 


Scal€» factor for library decimal intermediate form. 


| WSDV 


8 


Input/output field dope vector. 


| WINT 


9 


Library intermediate form storage area. 


| WSWA 


1 


Eight 1-bit switches: Intermodular communication. 


| WSWB 


1 


Eight 1-bit switches: General purpose switches. 


| WSWC 


1 


Eight 1-bit switches: Not used across calls. 


| WOFD 


8 


Dope vector for ONSOURCE or ONKEY built-in functions. 


| WOCH 


4 


A (Error character) : ONCHAR built-in function. 


| WFCS 


150 


Charcicter string (in required format) used by list-directed 
and data -directed output. 


| WCFD 


4 


Library intermediate FED: String/arithmetic conversion. 


| WFDT 


4 


A (Target FED) : Implicit parameter for F or E format output 
conversion. 


| WODF 


8 


SDV for DATAFIELD in error. 


| WCNV 


8 


Library GO TO control block. 


| WFIL 


4 


A (DCLCB) for ONFILE. 


| WOKY 


8 


SDV (Null string) ; requested when ONKEY built-in function used 
out of context. 


| WEVT 


4 


A5 (event variable). 


| WREA 


4 


Return address for AREA on-unit. 



Alternative entries: 

r T _ T . _ — . 1 

38 | WFC1 | 40 | Workspace for interleaved array indexer. | 

60 | WONC | 40 | Error code? storage area for contents of floating-point regis- | 

| | j ters in error-handling subroutines. j 

L X_ X . . . . . . J 



j WCNP | 4 j Implicit parameter: A (Constant descriptor) 
| WCN1 | 8 | A (Start of constant), A (End of constant). 
| WCN2 | 8 j A (Start of constant), A (End of constant). 

L J. J_ .. . . . 

Figure 49. Library Communication Area (LCA) 



38 
3C 

44 
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7 8 
IHEQLSA *- r T — 



31 



1HEQLWE- 



IHEQLCA- 







48 



IHEQLWO H" 

50 . 



IHEQLW1 H 

E8 



IHEQLW2 Pi 

180 



IHEQLW3 H" 

218 



IHEQLW4 H 

2B0 



348 



3E0 



Flags | Length 

I 

± 



Chain-back address 
(save area) 



Chain-forward address 



Register save area 
(8 bytes unused) 



Workspace level 



Workspace level 1 



Workspace level 2 



Workspace level 3 



Workspace level 4 



Workspace level E 



Library communication 
area (LCA) 



1HEQLWF H- 






Figure 50 - Standard Format of Library 
Workspace (LWS) 



STANDARD SAVE AREA (SSA) 



Flags 

one-byte code, employed by PL/I house- 
keeping procedures to specify the 
nature of the storage area in which 
the SSA resides. (See Figure 52.) 

Length 

three-byte binary integer specifying 
the total length of the storage area 
in which the SSA resides; used by PL/I 
housekeeping to free dynamic storage 
areas. (See 'PL/I Object Program Man- 
ageirent'.) When OPT=01. Default is 
used, bit 1 of these three bytes is 
used as a flag. 



Chain-back Address 

Address of the SSA originally provided 
for a module that now calls another 
module. 



Chain- forward Address 

address of the SSA acquired by a 
called module. This field is not set 
for any PL/I Library module, since 
intermodule trace is not supported 
within the library. 

Return address of the calling module 

contents of register LR on entry to 
the called module, set by the calling 
module to the address of the point of 
return. All PL/I Library modules 
return using register LR. 

Entry Point of the called module 

contents of register BR on entry to 
the called module. 

Locations 14 through 4 8 

contents of the specified registers on 
entry to the called module. PL/I 
Library modules save all registers LR 
through WR in order to meet the 
requirements of a GO TO statement in 
an cn-unit. The register PR field is 
set by the subroutine in IHEWSAP that 
initializes the main procedure; it 
remains unchanged throughout the task. 
For some I/C macro expansions, the 
content of register 14 is stored at 
location 48. 



STRING ARRAY DOPE VECTOR (SADV) 

This control block (see Figure 53) con- 
tains information required to derive, 
directly or indirectly (through a secondary 
array of SDV entries), the address of ele- 
mental strings. The SADV is identical to 
the basic ADV, with the addition of a full- 
word which describes the string length. 
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Offset 


Valu 


Symbolic 

e Name 





OFCD 


4 


OFDR 


8 


- 


C 


OFLR 


10 


OFBR 


14 


OFR0 


18 


OFRA 


1C 


OFRB 


20 


OFRC 


24 


OFRD 


28 


OF RE 


2C 


OFRF 


30 


OFRG 


34 


OFRB 


38 


OFRI 


3C 


OFRJ 


40 


OFWR 


44 


OFPR 


48 


— 



General Register 

Symbolic 

Name 



Standard Save Area 



7 8 



Usage 



31 



13 

14 

15 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

14 



DR 

LR,RY 

BR,RZ 

R0 

Rl,RA 

RB 

RC 

RD 

RE 

RF 

RG 

RH 

RI 

RJ 

RX,WR 

PR 

LR f RY 



r 

1 


T 

Flags | 




Length 


| Chain-back address 


] Chain-forward address 








Contents 


of 


register 






Contents 


of 


register 




Contents 


of 


register 




Contents 


of 


register 




Contents 


of 


register 




Contents 


of 


register 




Contents 


of 


register 




Contents 


of 


register 




Contents 


of 


register 




Contents 


of 


register 






Pseudo-register pointer 



Figure 51. Format of the Standard Save Area CSSA) 



Fixed-length strings require only a pri- 
mary dope vector. The two length fields 
are set to the same value, which is the 
declared length of the strings. 

VARYING strings require, in addition to 
the primary dope vector, a secondary dope 
vector. This consists of SDV entries for 
each elemental string within the array. 
The secondary dope vector is ciddressed via 
the primary dope vector by the standard ADV 
algorithm; having located the relevant SDV, 
the actual string data is directly address- 
able. The maximum- length field appended to 
the ADV is set to the declared maximum 
length of each array element. Tne current- 
length field is set to zero. 

The multipliers of the ADV for a fixed- 
length string apply to the actual string 
data. Those of the ADV for a variable- 



length string apply to the secondary dope 
vector of SDV entries. 

STRING DOPE VECTOR (SDV) 

A string dope vector (SDV) is an 8-byte 
word-aligned block that specifies storage 
requirements for string data. The format 
of the SDV is shown in Figure 54. 

Definition of SDV fields: 

EtO (Bit offset) 

if the string is a bit string, posi- 
tions to 2 of the SDV specify the 
offset of the first bit of the string 
within the addressed byte. The cit 
offset is only applicable to bit str- 
ings which form part of a data aggreg- 
ate, and then only if that aggregate 
has the UNALIGNED attribute. 
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Bit 



Meaning 



= 



= 1 



Always 



No statement num- 
ber field in ESA 



No dummy ON field 
for STRINGRANGE 



Procedure DSA 



No dummy ON field 
for SUBSCR1PTRANGE 



Non-recursive DSA, 
without display 
update field 



No ON fields 



No dummy ON field 
for SIZE 



Statement number 
field in DSA 



STRINGRANGE field 
created as for 
other ON condi- 
tions ions 



Begin block DSA 



SUBSCRIPTRANGE 
field created as 
for other ON con- 
ditions 



Recursive DSA, 
with display up- 
date field 



ON fields 



SIZE field created 
as for other ON 
conditions 



H 



Figure 52. Format of the SSA Flag Byte 







15 16 



31 




| Maximum length 

L . . . 



T .| 

| Current length/0 | 
x J 



Figure 53. Format of the Primary String 
Array Dope Vector (SADV) 

2 3 7 8 15 16 31 

r T T ., 

|BtO | I Byte address of string | 

, ± x T -( 

| Maximum length | Current length | 

L X J 

Figure 54. String Dope Vector Format Vec 

Byte address of string 

for both character and bit strings, 
this three-byte field specifies the 
address of the initial byte of the 
string. 

Maximum length 

halfword binary integer which speci- 
fies the number of storage units allo- 
cated for the string; byte count if 
character string, bit count if bit 



string. This value does not vary for 
a particular generation of its asso- 
ciated string. 

Current length 

halfword binary integer which speci- 
fies the number of storage units, 
within the maximum length, currently 
occupied by the string; only applic- 
able to strings with the VARYING 
attribute. 

The two length fields exist to accommod- 
ate strings with the VARYING attribute; in 
the instance of a fixed-length string, the 
two fields contain identical values. Both 
fields may contain a maximum value of 
32,767. 

STRUCTURE DOPE VECTOR 

This control block contains information 
required to derive, directly or indirectly, 
the address of all elements of the 
structure. 

The format of a structure dope vector is 
determined as follows. Tne dimensions 
which have been applied to the major struc- 
ture or to minor structures are inherited 
by the contained structure base elements; 
undimensioned non-string base elements are 
assigned a dope vector consisting only of a 
single-word address field. The structure 
dope vector is then derived by concatenat- 
ing the dope vectors which the base ele- 
ments would have if they were not part of a 
structure, in the order in which the ele- 
ments appear in the structure. 

SYMBOL TABLE (SYMTAB) 

The symbol table consists of one or more 
entries which define the attributes, iden- 
tifier, and storage location of variables 
which appear in the data list for data- 
directed I/O. Each SYMTAB entry contains 
the address of the next entry or a stopper. 
Figure 55 describes the format of a SYMTAB 
entry. 







7 8 



I 



15 16 

Chain-forward address 



31 



Length 



Identifier 



T 

D 1 

X 


A(DED) 


T 

Flags | 
x 


Field A 


Field B 


T 

1 

X 



Figure 55. Format of the Symbol Table 
(SYMTAB) 
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Definition of SYMTAB fields: 



Bits 



Chain-forward address 

the address of the next e;ntry in the 
symbol table; all symbols (identi- 
fiers) known within a given block are 
chained together. The last entry in 
the chain is signaled by a zero chain- 
forward address. (The symbol table of 
a contained block must include the 
symbol table of the containing block; 
hence the chain-forward address of the 
last entry for variables declared in a 
contained block is that of the first 
entry in the symbol tabl€i of the con- 
taining block.) 



Length 

number of characters comprising the 
identifier. Maximum length is 255 
characters. 



Identifier 

the name declared for a variable. If 
the variable is known by a qualified 
name, the identifier includes separat- 
ing periods. 



D (= Dimensionality) 

the number of dimensions declared for 
an array variable; C = for scalar 
variables. 



5 6 7 

Variable is STATIC 

1 Non-structured AUTOMATIC or CON- 
TROLLED 

10 Structured AUTOMATIC or CON- 
TROLLED 

Field A: 

If STATIC 

address of data item or its dope 
vector. 

If AUTOMATIC (non- structured) 

offset of data item or its dope vector 
within DSA. (See note.) 

If AUTOMATIC (structured) 

offset of dope vector for data item 
(within a structure dope vector) , 
relative to origin of DSA. (See 
note. ) 

If CONTROLLED (non-structured) 

offset to data item or its dope 
vector. 

If CONTROLLED (structured) 

as for AUTOMATIC (structured), but 
offset is relative to origin of struc- 
ture dope vector. 

Field B; 



A(DED) 

address of the data element descriptor 
associated with the variable. 

Flags 



(Reserved) 
1 ON CHECK for the variable 
1 ON CHECK for label variable 

(Reserved) 

(Reserved) 



If STATIC 

not used. 

If AUTOMATIC 

offset of display within PRV. 

If CONTROLLED 

offset of the anchor word (pseudo- 
register) of the controlled variable. 

Note: See Section II for description of 

storage class implementation and for 
definition of DSA. 
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INPUT/OUTPUT CONTROL BLOCKS 



This describes the formats of the con- 
trol blocks used by the PL/I Library I/O 
interface modules, including those blocks 
generated by the compiler. The functions 
of the blocks and the way in which they are 
used by the library are described in Sec- 
tion II. .An example of the chaining of I/O 
control blocks is included. In the dia- 
grams, all offsets are in hexadecimal. 



xxxxOOlO 
xxxxOOll 
xxxxOlOG 
xxxxOlOl 



REGIONAL (1)* 
REGIONAL (2)* 
REGIONAL (3)* 
TELEPROCESSING* 



(Stream-oriented I/O is supported only 
for data sets of CONSECUTIVE 
organization. ) 



DECLARE CONTROL BLOCK (DCLCB) 

The declare control block, shown in 
Figure 56, contains these fields: 



Byte 2 
0001 xxxx 
0010 xxxx 



Access 

SEQUENTIAL 
DIRECT 



(These are used for record-oriented 
I/O only.) 



DPRO 



half word binary integer (set by the 
linkage editor) specifying the offset, 
within the pseudo-register associated 
with the declared file. 



xxxx 0001 

xxxx 0010 

xxxx 0100 

xxxx 1000 



Mode 

INPUT 

OUTPUT 

UPDATE 

BACKWARDS 



DCLA 



four four-bit codes specifying the 
file type, organization, access, and 
mode: 



Byte 1 

0001 

0010 



xxxx 
xxxx 



xxxx 
xxxx 



0000 
0001 

7 8 



Type 

STREAM 

RECORD 

Organization 

CONSECUTIVE 

INDEXED 



15 16 



23 24 



31 



10 



14 



18 



DPRO 



DCLA 



DBLK 



DLRL 



™ T + T _— . 

DCLD | DBNO j DCLB | DCLC 



DXAL 



|NCP Value Reserved j 

_x J 



(Reserved) 



(Reserved) 



DFLN | 
J 



DFIL 



Figure 56. Format of the Declare Control 
Block (DCLCB) 



(Stream-oriented I/O uses INPUT and 
OUTPUT only. ) 



EBLK 



halfword binary integer specifying the 
length, in bytes, of the blocks within 
the data set: 

F-format records 

block length specified for data set 
(constant for all blocks except pos- 
sibly the last one) . 

U-, V-, VS- or VBS- format records: 
maximum length of any block in data 
set. 



TP 



maximum message length. 



DLRL 



halfword binary integer specifying the 
length, in bytes, of the records 
within the data set. Two or more rec- 
ords may be grouped (blocked) to form 
one physical block. 

F-format records 

record length specified for data set 
(constant for all records). 

V-, VS- or VBS-forraat records 

maximum length of any record in the 
data set. 



*Not used in TSS/360 
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U- format records 

this specification is not permitted; 
the block size defines the record 
length. 



DCLD 



one byte containing ENVIRONMENT 
options : 



Bit 


Option 





LEAVE 


1 


COBOL file 


2 


CTLASA 


3 


CTL36 


4 


INBEXAREA 


5 


NO WRITE 


6 


REWIND 


7 


GENKEY 



DBNO 



one-byte binary integer specifying the 
number of buffers to be allocated to 
the file when it is opened, as speci- 
fied by the BUFFERS option. 



DCLB 



one byte containing attribute codes: 



Bit 


Attribute 





KEYED 


1 


EXCLUSIVE 


2 


BUFFERED 


3 


UNBUFFERED 


n 


TRANSIENT* 


5 


(Reserved) 


6 


(Reserved) 


7 


(Reserved) 



DCLC 



eight-bit code which specifies the 
format of records within the data set: 



Bits 




Code 


Format 


and 


1 


01 


V 


and 


1 


10 


F 


and 


1 


11 


U 


2 




- 


(Reserved) 


3 




1 


Blocked 


<* 




1 


VS/VBS 


5 




1 


PRINT/G 


6 




1 


R 


7 




- 


(Reserved) 



DXAL 



halfword binary integer specifying the 
count in the INDEXAREA area enviorn- 
ment option. 



DFLN 



one-byte binary integer specifying the 
length (minus one) in bytes of the 
file name in the following field. 



DFIL 



character string, up to 31 bytes long, 
specifying the name of the file. If 



*Not used in TSS/360. 



there is no TITLE option in the OPEN 
statement, the first eight characters 
of this name are used as the naire of 
the DDEF associated with the file dur- 
ing program execution. (The conpiler 
will have padded the name with blanks 
to extend it to at least eight charac- 
ters in length.) 



EVENT VARIABLE 



The format of this control block is 
snown in Figure 57 ; event variables are 
placed in two chains: 

1. The file chain, which is anchored in 
the TEVT field of the FCB and includes 
all active event variables related to 
a file and for which there is no 
corresponding IOCB . This chain 
enables all associated event variables 
that are not being waited on to be set 
inactive, complete, and abnormal when 
a file is closed. 

2. The event chain, which is anchored in 
the pseudo- register IHEQEVT, and 
includes all active I/O event 
variables associated with the PL/I 
program. This chain facilitates the 
setting of those event variables that 
are not being waited on inactive, com- 
plete, and abnormal on termination of 
the PL/I program. 

An example of the chaining of event 
variables is given at the end of this sec- 
tion on Input/Output Control Blocks. 



EVF1 



8 -bit code containing implementation 
flags: 







7 8 



15 16 



31 



EVF1 


1 

-4- 


EVEC 




EVF2 


T 

I 


EVIO 




8 




EVCF 




C 




EVCB 




10 


EVST 


T 

1 

X 


Reserved 


14 




EVFF 




18 




EVFB 




1C 




EVPR 





Figure 57. Format of the Event Variable 
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Flags 

Active event variable 
I/O associations 
No WAIT required 
FCB address contained 

in the first word 
This event variable 

is to be checked 
DISPLAY event variable 
IGNORE option with 

this event 



Code 



EVF2 



1000 
0100 
0010 



0000 
0000 
0000 



Name 

EfcAC 

EM 10 
EMNW 



7 8 



15 16 



23 24 



31 



0001 0000 EJMFC 



0000 
0000 



1000 
0100 



EMCH 
ENDS 



0000 0010 EJV1IG 



EVEC 



contains the address of the DECB asso- 
ciated with the event, or the address 
of the FCB when no IOCB was obtained, 
e.g., when READ IGNCRE(O) is executed. 



PL/I ECB flag byte: 

Flags 

Wait 
Complete 



Code 
1000 0000 
0100 0000 



Name 

EMWE 
EMCP 



EVIO 



not used. 



EVCF 



event variable chain-forward pointer.* 



EVCB 



event variable chain- tack pointer.* 



-4 



4 

8 

C 

10 

14 

18 

1C 

20 

24 

28 

2C 

30 



TVAL 


TRES 


TFLX 


T 

1 

- 4- 


TDCB 




TTYP 


T 

I 

- 4- 


TACM 




TFLA 


t 

| TFLB 
- 4- 


T 

1 


TLEN 


TFIO 


t 

l 


TDCL 




TCBA 




TREFj 


T 

1 


TMAX 


TREC 


TCNT 




TPGZ 


T 

1 

1 


TLNZ 




TLNN 


| TFLC 


" T 

| TFLD 


TFIE 


" T 

1 

- 4. 


TFOP 




TFLF 


t 

1 

JL 


TTAB 





DCB 



L J 

Figure 58. FCB for Stream-Oriented I/O 



EVST 



status field: 

normal status value: all zeros, 
abnormal status value: low-order bit 
is 1, remainder is zero (unless set 
otherwise by STATUS pseudo-variable). 



EVFF 



event variable chain-forward pointer 
(file). 



EVFB 



event variable chain-back pointer 
(file) . 



EVPR 



address of the PRV of PI/I program. 



FILE CONTROL BLOCK (FCB) 

The format of the file control block is 
determined by whether the file is stream- 
oriented (Figure 58) or record-oriented 
(Figure 59). The fields in the FCB are: 



TVAL 



word containing bits indicating which 
statements are valid for this file. 



TRES 



reserved. 



TFLX 



eight-bit code specifying error and 
exceptional conditions: 



Conditions 
EOF on data set 
Error on output 
Error on input 
Error on data field 
Do not raise 

TRANSMIT 
List terminator 
ENDPAGE raised 



Code 



Name 



1000 0000 TMEF 

0100 0000 TMOE 

0010 0000 TMIE 

0001 0000 TWIT 

0000 1000 TMNX 

0000 0010 TMLC 

0000 0001 TMEP 



TDCB 



address of the DCB part of the FCB, 



*Not used in TSS/360. 



TTYP 



eight- tit code specifying I/O type: 
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7 8 



-8 

-4 



4 

8 

C 

10 

14 

18 

1C 

20 

24 

28 

2C 

30 

34 

38 



,. T - 

TFLX | 

I- +~ 

TTYP I 
+- 



■ T ' ' 

TFLA I TFLB j TLEN 

TFIO I TDCL 



15 16 
TVAL 

TRES 



23 24 



31 



USASI control/print 



TDCB 
TACM 



TLAB/TCBA 



TPKA/TSWA 



TBBZ 






TADC 



TLRR/TAID 
T 



TFLD 



H 



k — 



TLRL | TFLC 
TFLE | TFOP 
TFLF | TFMP j (Reserved) 



± 

TEVT 






Zero 



DCB 



Figure 59, FCB for Record-Oriented I/O 



Type 


Code 


0000 


Name 


STREAM I/O 


XX XX 


TMDS 


RECORD I/O 


XX XX 


0001 


TMRC 


STRING I/O 


XX XX 


0010 


TMST 


Temporary flags. 


1000 


xxxx 


TMT1 


valid for single 


0100 


xxxx 


TMT2 


I/O call only 


0010 


xxxx 


TMT3 




0001 


xxxx 


TMT4 



TACM 



address of I/O transit module, which 
interfaces with data management access 
methods. The names of all such 
library modules are IHIWIT*, where * 
is a letter identifying the module- 



file 


Ixxx xxxx 


TMAS 


Mode 


Code 


Name 


INPUT 


xxxx 0001 


TMIN 


OUTPUT 


xxxx 0010 


TMOP 


UPDATE 


xxxx 0100 


TMUP 


BACKWARDS 


xxxx 1000 


TMBK 



TFLB 



eight- bit code specifying the file 
attributes: 



Attribute 


Coc 


le 


Name 


EXCLUSIVE 


Ixxx 


xxxx 


TMEX 


UNBUFFERED 


xlxx 


xxxx 


TMBU 


Bidden buffers 


xxlx 


xxxx 


TMHB 


SYSOUT file 


xxxl 


xxxx 


TMPT 


Bidden buffer may 








be required 


xxxx 


xlxx 


TMHQ 


KEYED 


xxxx 


xxlx 


TMKD 


DIRECT 


xxxx 


xxxl 


TMDR 



TLEN 



halfword binary integer, specifying 
the length, in bytes, of the FCB. 



TFIO 



eight- bit code specifying the type of 
I/O operation: 



Code 
1000 0000 
0100 0000 



Operation 
PUT 
GET 
EVENT option 

with IGNORE option 0000 0010 
COPY option 0000 0001 



Name 
TMPW 
TMGR 



TMEI 
TMCY 



TDCL 

address of the DCLCB defining the 
file. 

TCBA/TLAB 

STREAM: TCBA 

address of next available byte in a 
buffer. 

RECORD: TLAB 

sequential: address of last IOCB 

obtained. 

direct: address of first IOCB in 

chain. 

TCBA: 

sequential: address of last record 

located. 

TREM/TMAX/TPKA 



TFLA 



two four- bit codes specifying the 
record format and the current file 
mode: 



Format 

V (variable) 

F (fixed) 

U (undefined) 



Code 



Name 



0001 xxxx TMVB 
0010 xxxx TMFX 
0100 xxxx TMUN 



STREAM: TREM 

number of bytes remaining in current 
record. This value is equal to TLNZ 
when the record is initialized for 
output. 

TMAX 

halfword binary integer specifying the 
number of bytes in a record: 
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Input : the number of bytes read. 

Output : the number of bytes initially 
available. 

For V format records, this number 
includes the four-byte record control 
field; for all record formats, it 
includes the USASI control byte (if 
present) . 

RECORD: TPKA 

address of previous key. (Used for 
LOCATE creation of INDEXED data sets, 
and padding key for SEQUENTIAL INDEXED 
data sets.) 

TSWA 

address of data in dummy buffer got at 
OPEN time. 

TREC/TBBZ 

STREAM: TREC 

address of buffer workspace (U-format 
output) . 

RECORD: TBBZ 
length of IOCB. 



2. an implicit open occurs. 

If the ENVIRONMENT attribute is not 
specified, the record length used is 
that specified in the associated DDEF 
command. 

If none of these specifies a record 
size, and if the file is a print file, 
a default length of 120 characters per 
line is assumed. 

The TLNZ value includes all characters 
available within a line. 

RECORD: TLRR 

address of IOCB of last complete READ 
operation. This is required whenever 
the EVENT option is used; it provides 
a means of identifying the last com- 
plete READ operation when a REWRITE is 
executed. In the case of spanned rec- 
ords (in QSAM) this field holds the 
length of the previously read record 
if the previous operation was a READ 
SET. 

TAID 

address of dummy work area for termin- 
al identification. 



TCNT/TADC 

STREAM: TCNT 

fullword binary integer specifying the 
number of scalar items transmitted 
during the most recent I/O operation 
(GET or PUT) on the file. 

RECORD: TADC 

address of the adcon list. 



TLNN/TLRL 

STREAM: TLNN 

halfword binary integer specifying the 
current line number. 

RECORD: TLRL 

maximum logical record length for the 
file. 



TPGZ/TLNZ/TLRR 

STREAM: TPGZ 

halfword binary integer specifying the 
maximum number of lines per page. 
This field is only used for PRINT 
files. A default value of 60 lines is 
assumed if: 

1. the OPEN statement that opens the 
file does not include the PAGESIZE 
option, or 

2. an implicit open occurs. 

TLNZ 

halfword binary integer specifying the 
maximum number of characters per line. 
A default line size is obtained from 
the record length specified in the 
ENVIRONMENT attribute if: 

1. the OPEN statement that opens the 
file does not include the LINESIZE 
option, or 



TFLC 



two 4-bit codes named TFDV and TFHE: 

TFDV — type of device 

TFHE — further file history 



Meaning 



Code 



TFLD 



Name 





TFDV 


TFHE 




Paper tape 


1000 


0000 


TMPA 


Printer 


0100 


0000 


TMPR 


Conversational 








input flag 


0010 


0000 


TMCI 


Previous operation 








was READ with SET 








option 


0000 


1000 


TMPS 


Attempt to close in 








wrong task 


0000 


0100 


TMDT 


OPEN or CLOSE in 








progress 


0000 


0010 


TMOC 



eight-bit code specifying the organi- 
zation of the data set associated with 
the file: 
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Orqanization 


Code 


Name 


CONSECUTIVE 


X'OO' 


TMCN 


INDEXED 


X'04 f 


TMIX 


REGIONAL (1) 


X'08' 


TMR1* 


REGIONAL (2) 


X'OC* 


TMR2* 


REGIONAL (3) 


X'lO' 


TMR3* 


TELEPROCESSING 


x . 14 . 


TMTP* 



TEVT 



pointer to chain of active I/O event 
variables associated with the file, 
but for which there is no correspond- 
ing IOCE: enables the event variables 
to be set complete, inactive, and 
abnormal when the file is closed. 



TFLE 



eight-bit code specifying the history 
of the file: 



History 


Cc 


)de 


Name 


Preceding operation 






a READ 


1C00 


0000 


TMRP 


IGNORE in progress 


0100 


0000 


TWIG 


CLOSE in progress 


0C10 


0000 


TMCL 


End of the extent 








reached by the 








last operation 


0C01 


0000 


TMET 


Preceding operation 








a REWRITE 


0000 


1000 


TMWP 


Preceding operation 








a LOCATE 


ocoo 


0100 


TMLT 


I/O condition on 








CLOSE 


ocoo 


0010 


TMCC 


Implicit CLOSE 


ocoo 


0001 


TMCT 



TFQP 



TFLF 



address of the prior FCE opened in the 
current PL/I program, or zero (if FCB 
is the first FCB opened) . 

eight-bit code specifying the load 
module code: 



STREAM: 



Miscellaneous 
TAB table exists 



RECORD: 



C ode 
0000 0001 



Name 
TMTB 



DCE 



this field, variable in length and 
format, is the data control block 
defined by the data management for the 
various access methods. 



INPUT/OUTPUT CONTROL BLOCK (IOCB) 

This control block has three main divi- 
sions (see Figure 60). The size of the 
IOCE varies, as described in Figure 61, 
according to the access method. The fields 
in the ICCB are: 



EACT 



one byte containing an activity flag 
(used only in direct access): 

Code Meaning 
X'FF« In use 
X'OO' Free 



EPIO 



chain-back address of the previous I/O 
control block. 



BINO 



chain-forward address of the next I/O 
control block. 



Module Code Code 

QSAM X'00' 

BDAM X 9 0i* 9 

QISAM X'08' 

BISAM X'OC 

BSAM X'10 1 

BSAM load mode X'l^ 1 

QTAbi X»18' 

Tab control table 

exists X'Ol* 



TTAB 



Name 
TMQS 
TMBD 
TMQI 
TMBI 
TMBS 
TMBL 
TMQT* 

TMTB 



EERR 



TFMP 



address of TAB control table 
files only) . 



(PRINT 



RECORD I/O only. This flag is used by 
exclusive files to act as a lockout 
flag when updating the chains of 
IOCEs . A TS loop is performed on this 
byte until it is freed. When the 
chaining operation is complete, the 
byte is set to zero. 



*Not used in TSS/360. 



flag byte for record-oreinted I/O 
situations : 



Situation 

IOCB has been checked 
I/O error exits 
End-of-file has 

occurred 
Possible lock for 

REWRITE 
Lock for 

REWRITE 
IOCE for VISAM 

READ UPDATE mode 



Coae 



Name 



0000 0001 BMCH 
0000 0010 EMER 

0000 0100 BMEF 

0000 1000 BMPR 

0001 0000 BMNR 
0100 0000 BMEF 



Dummy buffer acquired 1000 0000 BMDB 



EFCB 



address of the FCB for the file. 



BREQ 



request control block. Four-cyte 
field specifying the request codes for 
associated operations (as passed by 
the compiled calling sequence) : 
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15 16 



31 




4 
8 
C 

14 
18 
1C 
20 
24 
28 
2C 
30 
34 
38 
3C 
40 
44 
48 
4C 
50 
54 



BACT | 




BPXO 




BNIO 


T 

BEJRR J 
J. 




EFCB 




BREQ 


BERC/BEFC/BXTC/BKYC 


T 

1 




BRCC 


BRVS 


BEVN 


BDF1 


BDF2 


T 

1 

X 




BDF3 


BDF4 



BDF5 



T 



IOCE 
foundation 



BTYP 



BECB 

T 



ELEN 



BDCB 
BARE 



BSTS/BLOG 
BKVS/BKEY 



system use 
system use 
system use 



BSAM/VISAM 
DECB 



BSAM 
hidden 
buffer 

area 



si L j Y 

Note: (The IOCB includes the Data Event Control Block (DECB) for the BSAW and VISAM 
Interfaces) 

Figure 60. Format of the I/O Control Block (IOCB) 
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T T 

Sequential 



F-f ormat 
records 



V-f ormat 
records 



U- format 
records 



Consecutive 



A 

B 



A 
B 
D 3 



A 
B 



A: Size of IOCB 

foundation 
B: Size of BSAM DECB 
C: Size of VISAM DECfi 
D: Size of hidden 

buffer: 

D ± : Length of 

recorded key 

D 2 : Length of 

block (record) 



Direct 



Indexed 



A 
c 

L ± 

16 

(Note 1) 



L X 

Figure 61. Values Used 
of IOCB for 
Methods 



Note 1: If RKP * 
0, then D x = • 
If KKP = then 
for blocked rec- 
ords: D ± = L, 
and for unblocked 
records: D ± = 2L, 
where; L = length 
of recorded key . 

Note 2: The data 
value: is obtained 
by summing the 
sizes; given under 
each entry. 



H 



in Computing Size 
Various Access 



EERC/BEFC/BXTC/BKYC : 

error codes for various conditions. 

BERC 

ERROR condition 

BEFC 

ENDF1LE condition 

BXTC 

TRANSMIT condition 

BKYC 

KEY condition 

(See 'Error and interrupt Handling* , 
in Section II, for details of these 
cedes . ) 



BKCC 



error cede for RECORD condition. 

(See 'Error and Interrupt Handling 1 , 
in Section II, for details of these 

codes . ) 



ERVS 



address of RDV or SDV for record 

variable. 



BEVN 



address of event variable; zero, if 
none exists for associated operation. 



BDF1 



Byte 1 


Operation 


X'OO' 


READ 


X'04' 


WRITE 


X^S 1 


REWRITE 


X'OC 


EELETE 


X'lO' 


LOCATE 


X 9 ll\ 9 


UNLOCK 


X'18' 


WAIT 


Byte 2 


Option Set 1 


X'OO" 


None/SET 


x'oa ■ 


IGNORE 


X'08' 


INTO/FRGi'i 


Byte 3 


Option Set 2 


X'OO' 


None 


X'04' 


KEYTO 


X'08' 


NOLOCK 



BSAh: BDE1 

address of the user's record variable. 



BDF2 



BSAK: BDF2 

length, in bytes, of the user's record 
variable. 



BDF3 



BSAM 

length, in bytes, of the KEYTO area. 



EDF4 



BSAM BDF4: 

address of the KEYTO area. 

BDF5: BSAF. 

relative record number (REGIONAL CD) 



Byte 4 

X'20' 

X'40' 



X'80' 



Option Set 3 
EVENT option 
VARYING record variable 
(INTO) 
VARYING KEYTO 



DECB fields 

see System Control Blocks PLM for 
detailed description. 

EDBF (BSAM) 

start of hidden buffer. 
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4 8 12 

r T T T 1 

1 Type | | Access | Mode | 

L J. X JL J 

16 20 24 28 31 

r T T T 1 

| Flag A | Flag B | Flag C | Flag D | 

L_. X X X J 

Figure 62. Format of the Open Control 
Block COCB) 



EXAMPLE OF CHAINING 

Figure 63 contains an example of the 
chaining of FCBs, lOCBs f and event 
variables in a PL/I program. 



Files 

The program has opened two files, and 
the addresses of their FCBs (FCB1 and FCB2) 
are stored in the PRV; the FCBs are placed 
in a chain that is anchored in the pseudo- 
register IHEQFOP and uses the TFOP fields 
in the FCBs. 



OPEN CONTROL ELOCK (OCB) 

The format of the open control block 
(OCB) is shown in Figure 62. The fields in 
the OCB are: 



Type 




STREAM 
RECORD 




0001 
0010 


Access 


SEQUENTIAL 


0001 






DIRECT 




0010 


Mode 




INPUT 

OUTPUT 

UPDATE 




0001 
0010 
0100 






EACRWARDS 


1000 


Flag 


A 


Eit; 



1 
2 
3 


KEYED 
EXCLUSIVE 
BUFFERED 
UNBUFFERED 


Flag 


B 







transient* 


Flag 


C 






(Reserved) 


Flag 


D 


Bit: 



1 
2 
3 


CReserved) 
PRINT 
(Reserved) 
(Reserved) 



IQCBS 

Two o 
refer to 
are piac 

field of 
when the 
was used 
the BEVN 
point to 



f the current I/O operations that 
FCB1 required IOCBs. The IOCBs 

ed in a chain anchored in the TLAB 
the FCB so that they can be freed 
file is closed. The EVENT option 
with two of the I/O operations: 
fields in IOCBs 1 and 3 therefore 
the corresponding event variables. 



♦Not supported in TSS/360. 



Event Variables 

The program has three active I/O event 
variables. These are chained from the 
pseudo-register IHEQEVT so that, on ter- 
mination of the program, they can be set 
complete, inactive, and abnormal. (Note 
that the address in the chain-back field 
EVCB in event variable 1 is not that of 
IHEQEVT, but that of the field three words 
higher: IHEQEVT is thus in the sane posi- 
tion relative to this address as EVCB is 
relative to the first byte of the event 
variable.) Event variables 1 and 3 relate 
to the file corresponding to FCB1 , and must 
be set complete, inactive, and abnormal 
when the file is closed. Communication 
with event variables 1 and 3 is established 
via the corresponding IOCBs. But event 
variable 2, which relates to an I/O opera- 
tion for which an IOCB was not required, is 
placed in a chain anchored in the TEVT 
field of the FCB. 
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© 



© 









PR 
OFFSET 


















EXCLUSIVE 
BLOCKS 


- 


XCFF 






XCBF 






XCFT 






XC3T 











i 








XCFF •-- 








XCBF 






XCFT - 




XCBT 









© 



© 



TDCL 










TFOP - 


TLAB 




TEVT 









TXLV 







EVEN? 

VARIABLES 


EVEC 












EVCF 


EVCB 














EVCF 




EVCB 






EVEC 








EVCF 


EVCB 




EVFF - 


EVFB 







TFOP 







BPIO - 


= 


BNIO 




BEVN 


BECB 


BXLV 



© 



© 



Figure 63. Example of Chaining of I/O Control Blocks 
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STORAGE- MANAGEMENT CONTROL BLOCKS 



7 8 



31 



r r 1 





4 
8 
C 



See 


r- 

Note | 

X 


Length 


of 


Area 


Variable 




Offset 


of End < 


Df Extent 




Offset 


of 


Large 


2St 


Free 


Element 








See 


Note 





I. ., 

Note: If the area variable contains a 



free list, bit of the first byte is 
set to l f and the fourth word is set 
to 0. 

L . J 

Figure 64. Format of Area Variable 

This describes the formats of the con- 
trol blocks used by the storage-management 
modules of the PL/I Library. The functions 
of the blocks and toe way they are used are 
described in Section II. In the diagrams, 
all offsets are in hexadecimal. 



AREA VARIABLE 

An area variable is prefaced £y a four- 
word description of its extent (Figure 64). 



DYNAMIC STORAGE AREA (DSA) 

The format of a dynamic storage area is 
shown in Figure 65. The size of a DSA 
varies; the minimum size is X'64' bytes. 
The first byte contains flags (see Figure 
66) describing the optional entries. 

Standard Entries 

Standard Save Area : The area starting with 
the flags and continuing up to and includ- 
ing the register save area. (See Figure 51 
and associated text.) 

Current File : This field is eight bytes 
long; its use is described in 'Current 
File 1 in 'Stream-Oriented I/O' in Section 
II. 

Invocation Count : This field is eight 
bytes long and contains: 

1st word: Environment chain-tack 
address or zero 



2nd word: Invocation count 

Optional £,ntries 

Display : This field is eight bytes long 
and contains: 

1st word: Pseudo-register offset 

2nd word: Pseudo-register update 

If it occurs at all, the display field 
always appears at offset 58. 

Statement Number : This field is four bytes 
long; it is described in 'Error and Inter- 
rupt Handling' . If it occurs at all, the 
statement number always appears at offset 
60; bytes 60-63 are always set to zero. If 
there is no statement number, this field 
can be used for optional DSA entries, e.g., 
ON fields. 

ON fields : Each ON field is two words 
long. The ON fields are described in 'ON 
Conditions' under 'Error and Interrupt Han- 
dling' . The position of the first ON field 
depends on whether there are entries in the 
display update and statement number fields: 

1. No display update, no statement num- 
ber: ON fields begin at offset 58. 

2. Display update, but no statement num- 
ber: ON fields begin at offset 60. 

3. Statement number (with or without a 
display update) : ON fields begin at 
offset 64. 

The last ON field is indicated by bit 0=1 
in the second word. 

Remaining Entries 

The dope vector formats are described 
earlier in this section, in 'Compiler- 
Generated Control Blocks'. The AUTOMATIC 
data, workspace and parameter lists areas 
are provided for use by the compiler. 



VARIABLE DATA AREA (VDA) 

A variable data area (see Figure 67) is 
a special type of automatic storage area, 
described in Section II. The first byte of 
the VDA contains flags (see Figure 68) 
describing the data. The PRV VDA is a VDA 
which contains the PRV and primary LWS. 
(See Figure 69). Secondary LWS is con- 
tained in the IWS VDA (Figure 70). 
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7 8 



31 



r T" 

| Flags | 



44 



48 



50 



58 



length 



Chain-back address 



Chain-forward address 



Register save area 



Current file 



Invocation count 



h 



OPTIONAL ENTRIES: 



Display 

Statement number 
ON fields 

Dope vectors 

AUTOMATIC data 
Wcricspace 
Parameter lists 



Figure 65. Format of the Dynamic Storage 
Area (ESA) 



I- + 



j + 



Bit 



h 



Meaning 



"T" 

I 

_X_ 



Always = 1 



No statement num- (Statement number 
ber field in DSA I field in DSA 



No dummy ON field j STRJNGRANGE field 
for STRINGRANGE [created as for 
j other ON condi- 
tions 



Procedure DSA 



[Begin block DSA 



No dummy ON field j SUBECRIPTRANGE 
for SUBSCRIPTRANGE| field created as 

| for other ON con- 

jditions 



Non- recursive DSA, j Recursive DSA, 
without display (with display up- 
update field (date field 



No ON fields 



JON fields 



H 



No dummy ON field [SIZE field created 
for SIZE | as for other ON 

I conditions 

L J. . X . 

Figure 66. Format of the DSA Flag Byte 







7 8 



31 



r — ~t- 

0| Flags j 

._. x. 



Length 



h 



Chain-back address 



1 Data j 

I I 

L J 

Figure 67. Format of the Variable Data 
Area (VDA) 

r . - T ., 









Bit 


















T 








H 


Meaning 





1 


2 


3 | 4 

X 


5 


6 


7 


i 










T 








i 










1 


| 
— +— - 











-+- 


Ordinary VDA 








1 


| 

1 

X 








1 


j 


VDA obtained for a 
library subroutine 








T 








i 










1 


| 
1 


1 





1 




VDA containing a 
secondary LWS 



J. — - — -X _„ + 

j 10 I 1 1 I PRV VDA | 

L_. . X .X . J 

Figurt 68. Format of the VDA Flag Byte 
7 8 31 



r .. T 

0| Flags | Length (= L(PRV) + L(LWS) + 

x 



h 



A (External save are) 



8)| 



H 



Library workspace (LWS) 



h 



| 1SW (DSA optimization area, 
| OPT=01 only 



Figure 69. Format of the PRV VDA 

7 8 31 



r _. T _ 

| Flags | 
x_ 



h 



10 



Length 



Chain- back address 



Chain- back address 
(previous LWS) 



(unused) 



library workspace (LWS) 



LWF (DSA optimization area, 
OPT=01 only) 



Figure 70. Format of LWS VDA 
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APPENDIX A; SYSTEM MACRO INSTRUCTIONS 



The following table lists the system 
macro instructions used by the PL/I library 
and associates their use with individual 
library modules. 



System 
Macro 

ABEND 

CHECK 
CLOSE 
DCB 
DCBD 



DELREC 



Library Module 
IHEWDUM, IHEWERR, IHEWZZC 

IHEWITB 

IHEWCLT 

IHEWOPO 

IHEWCLT, IHEWIOF, IHEWITB, IHE- 
WITD, IHEWITE, IHEWITG, IHEWITM, 
IHEWITN, IHEWOCL, IHEWOPO, IHE- 
WOPP, IHEWOPQ 

IHEWITD, IHEWITE, IHEWITM, 
IHEWITN 



DIR 



IHEWERR, IHEWSAP, IHEWZZC 

EBCDTIME IHEWCVC 

ESETL IHEWITD, IHEWITN 

FINDJFCB IHEWOPO 

FREEMAIN IHEWCLT, IHEWDSP, IHEWDUM, IHE- 
WITB, IHEWITG, IHEWLSP, IHEWOCL, 
IHEWOSW, IHEWSAP, IHEWZZC 

FREEPOOL IHEWCVC 

GATRD IHEWDSP 

GATWR IHEWCVC, IHEWDSP, IHEWSAP, IHEW- 
TOM, IHEWTSA, IHEWIOF 



GETBUF IHEWCVC 



GETMAIN IHEWDSP, IHEWDUM, IHEWITB, IHE- 
WITD, IHEWITE, IHEWITM, ITEWITN, 
IHEWLSP, IHEWOCL, IHEWOPO, IHE- 
WOPP, IHEWOPQ, IHEWSAP, IHEWZZC 



GETPOOL IHEWCVC 



GET 



IHEWIOF, IHEWITD, IHEWITG, 
IHEWITN 



GTWRC 


IHEWIOB, 


IHEWIOF, 


IHEWZZC 


OBEY 


IHEWZZC 






OPEN 


IHEWOPP 






PAUSE 


IHEWCVC 






PUT 


IHEWIOF, 
IHEWITN 


IHEWITD, 


IHEWITG, 


PUTX 


IHEWITG 






READ 


IHEWITE, 


IHEWITM 




SETL 


IHEWITD, 


IHEWITN 




SIR 


IHEWCVC, 
IHEWZZC 


IHEWERR, 


IHEWSAP, 


SPEC 


IHEWCVC, 
IHEWZZC 


IHEWERR, 


IHEWSAP, 


STIMER 


IHEWCVC 






SYSIN 


IHEWIOF 






WRITE 


IHEWITD, 
IHEWITN 


IHEWITE, 


IHEWITM, 


XTRCT 


IHEWIOB, 
IHEWZZC 


IHEWIOF, 


IHEWIOP, 
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APPENDIX B: PL/ I OBJECT PROGRAM PSEUDO-REGISTERS 



PL/I object programs require pseudo- 
registers (symbolic name format IHEQxxx) » 
some of which are defined by the compiled 
program, others by the library modules. 
During execution of a program register PR 
always points to the base of the PRV (see 
'Pseudo-Register Vector' f Section II). 



IHEQADC 

Pointer to a list of address constants 
for use by the I/O routines: the list is 
in IHEWSAP. 

IHEQATV 

Not used in TSS/360. 

IHEQCFL 

The current-file pseudo-register, 8- 
bytes, word aligned. Used by STREAM I/O 
modules for implicit communication of the 
file currently Deing operated upon; see 
■Current File' in 'Stream-Oriented I/O' in 
Section II. 

IBEQCTS 

The base address of the non-sharable 
module IHEWCVC. 

IHEQECA 

Four byte interruption communication 
area. 

IHEQERR 

Serves as a parameter list when calling 
IHEERRB. The code associated with the ON 
condition to be raised is placed into IHE- 
QERR. See 'ON Conditions' in Section II, 
internal error codes Appendix D. 

IHEQEVT 

The anchor cell for tne incomplete I/O 
event variables in a given PL/I program. 
When IHEQEVT contains zero, nc I/O event 
variable in the PL/I program is incomplete. 

IHEQFOP 

The anchor cell of the chain linking the 
FCBs for the files opened in a given PL/I 
program. When IHEQFOP is zerc , none of the 
files opened in this task are still open. 
See 'File Control Block' in Section IV. 

1HEQFVD 



Pointer to the Free VDA module in 

IHESAFD. 



IHLglCA 



Four byte interruption communication 
area . 

IHEQINV 

Contains the invocation count, and is 
updated by a library module each time a DSA 
is obtained. 

IHEQICA 

Pointer to the current generation of the 
library communication area; see 'Library 
Workspace* in Section IV. 

IHEQLPR 

Length of the pseudo-register vector. 
This is fixed, under TSS/360, and is 4096 
bytes. 

IHEQLSA 

Pointer to the first save area in LWS, 
which serves two purposes: (1) the save 
area provided by the error-handling rou- 
tines for an on-unit, and (2) an area where 
initial program information is saved (pro- 
gram mask, etc.). See Section IV. 

IHEQLWO, IHEQLW1, IHEQL W2 , IHEQLW3, IHEQLW4 

Pointers to the various levels of 
library workspace; see 'Library Workspace' 
in Section IV. 

IHEQIWE 

Pointer to the save area and workspace 
used by the error-handling routines when 
calling other library routines (not an 
on-unit) . 

IHEQLW F 

Pointer to the reserved area attached to 
the current LWS. Used for optimization in 
storage management. See 'Execution-time 
Optimization' in 'Program Management' in 
Section IV. 

IhEQRTC 

Contains the return code used in the 
normal termination of a PL/I program. 
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IHEQSAR 

Contains an environment count used by 
the display modification module (IHEWSAR) 
when on-units and entry parameter proce- 
dures are used in prologues and epilogues. 

IHEQSFC 

Pointer to free-storage within first 
block of storage obtained by the initiali- 
zation library module (IHEWSAP) . 

IHEQSLA 

Pointer to the storage area most recent- 
ly allocated by the storage management rou- 
tines. The area may be a DSA or a VDA. 

IHEQSPR 

The file register for SYSOUT, the name 
being standardized to allow usage of the 
same FCB for both the source program and 
the library modules. See 'Standard Files 1 , 
and 'File Addressing Technique' in Section 
II. 

IHEQTIC 

Not used in TSS/36 0. 

I HE Q VDA 

Pointer to the Get VDA module: set (in 
IHEWSAP) to IHESADF. 

IHEQXLV 

Not used in TSS/36 0. 
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APPENDIX C: LIBRARY MACRO INSTRUCTIONS 



IHELIB 

Operands : None 

Result : 

Definitions of LWS pseudo-registers. 

Lengths of save areas in LWS. 

Format of the library communication 

area. 

Definitions of save area offsets. 

Definitions of standard register 

assignments. 

Definitions of offsets in module 

IHEWCVC. 

IHECVC 

Operand : A four-character code denoting 
the last four letters of an en*:ry point in 
the library. 

Result : Register BR is loaded with the 
address of the entry point. 

IHEYCVC 

Operands : None 

Result : Definition of all offsets in 
module IHEWCVC. 

Used by : IHELIB and IHEWCVC. 

IHEEVT 

Operands : None 

Result : Definitions of the event variable 
and its flags. 

IHEPRV 

Operands : 

A three-character code denoting the last 
three letters of a pseudo-register name 
(default: LCA) 

A code denoting a general register 
(default: WR) 



A keyword parameter OP=XX, where XX is 
an RX instruction (default: L) 



Result : The RX operation is performed on 
the pseudo-register. This macro is gener- 
ally used to store the pseudo-register 
address in a general register. 

IHESER 



Operands: 

A three-character code denoting a work- 
space level (default: LWO) 
A code denoting a general register other 
than register DR (default: WR) 

Result : The address of the required work- 
space level is put into register DR. 

IHEZAP 

Operands : None 

Result: 

Definitions of the file control block 
and its flag bytes. 

Definition of the declare control block. 
Definitions of various I/O address con- 
stants, parameters, operations and 
options. 

Definitions of the I/O control block and 
its flag bytes. 

Definitions of the event variable and 
its flags. 

IHEZZZ 

Operands : DUMP/ non e 

Result : 

If the operand is omitted, or is not 
DUMP, a full DSECT is generated. If the 
operand is DUMP, only the parameter list 
for IHEZZC is defined as a DSECT. 
Used only £y IHEWDUM, IHEWZZC, IHEWZZE. 
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APPENDIX E: PL/ 1 LIBRARY INTERNAL ERROR CODES AND MESSAGES FOR ON CONDITIONS 



Among the errors that occur during pro- 
gram execution are errors that are covered 
by PL/I-defined conditions- If one of 
these occurs, an appropriate error code is 
passed to IHEWERR in pseudo-register IHE- 
QERR. This code is a 4-digit hexadecimal 
number. The two high- order digits denote 
the PL/I condition (Figure 71); the last 
digit may dencte a specific error asso- 
ciated with that condition. 



Code 



I 



Condition 



1000 
1800 
2000 
2800 
3000 
3800 
40XX 
4800 
5000 
5800 
6000 
6800 
7000 
78XX 
8800 
90XX 
98XX 
A000 
A8XX 
B000 
B800 
C000 
C8XX 



STRING RANGE 

OVERFLOW 

SIZE 

FIXEDGVERFLCW 

SUB3CRIPTRANGE 

CHECK (label) 

CONVERSION 

CHECK (variable) 

CONDITION (identifier) 

FINISH 

ERROR 

ZERGDIVIDE 

UNDERFLOW 

AREA 

NAME 

RECORD 

TRANSMIT 

I/O SIZE 

KEY 

ENDPAGE 

ENDFILE 

I/O CONVERSION 

UNDEFINEDFILE 



Figure 71. Internal Codes for ON Condition 
Entries 

If system action is required, an error 
message will be printed. The messages 
relating to the errors for the PL/I ON con- 
ditions are given here. 



1000 


STRINGRANGE 


1800 


OVERFLOW 


2000 


SIZE 


2800 


FIXEDOVERFIOW 


3000 


SUBSCRIPTRANGE 


4000 


CONVERSION 


4001 


CONVERSION ERR 



INPUT 



4002 

4003 
4004 
4005 
4006 

4007 

4008 

4009 

5000 
5800 
6000 
6800 
7000 
7800 
7801 

7802 

8800 
9000 
9001 

9002 

9003 

9004 
9800 
9801 



CONVERSION ERROR IN E-FORMAT 
INPUT 



CONVERSION ERROR IN B-FORMAT 
INPUT 

ERROR IN CONVERSION FROM 
CHARACTER STRING TO ARITHMETIC 

ERROR IN CONVERSION FROM 
CHARACTER STRING TO BIT STRING 

ERROR IN CONVERSION FROM 
CHARACTER STRING TO PICTURED 
CHARACTER STRING 

CONVERSION ERROR IN P- FORMAT 
INPUT (DECIMAL) 

CONVERSION ERROR IN P-FORMAT 
INPUT (CHARACTER) 

CONVERSION ERROR IN P -FORMAT 
INPUT (STERLING) 

CONDITION 

FINISH 

ERROR 

ZERODIVIDE 

UNDERFLOW 

AREA SIGNALED 

AREA CONDITION RAISED IN ASSIG- 
NMENT STATEMENT 

AREA CONDITION RAISED IN ALLOC- 
ATE STATEMENT 

UNRECOGNIZABIE DATA NAME 

RECORD CONDITION SIGNALED 

RECORD VARIABLE SMALLER THAN 
RECORD SIZE 

RECORD VARIABLE LARGER THAN RE- 
CORD SIZE 

ATTEMPT TO WRITE ZERO LENGTH 
RECORD 

ZERO LENGTH RECORD READ 

TRANSMIT CONDITION SIGNALED 

PERMANENT OUTPUT ERROR 
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9802 PERMANENT INPUT ERROR 

A8 00 KEY CONDITION SIGNALED 

A8 01 KEYED RECORD NOT FOUND 

A802 ATTEMPT TO ADD DUPLICATE KEY 

A803 KEY SEQUENCE ERROR 

A8 0U KEY CONVERSION ERROR 

A8 05 KEY SPECIFICATION ERROR 

A806 KEYED RELATIVE RECORD/TRACK 
OUTSIDE DATA SET LIMIT 

A8 07 NO SPACE AVAILABLE TO ADD KEYED 
RECORD 

B800 END OF FILE ENCOUNTERED 

C8 00 UNDEFINEDFILE CONDITION 
SIGNALED 

C801 FILE ATTRIBUTE CONFLICT AT OPEN 



C802 

C803 

C804 
C805 

C806 

C807 

C808 
C809 

C80A 

C80B 



FILE TYPE NOT SUPPORTED 



BLOCKSIZE NOT SPECIFIED 



CANNOT BE OPENED (NO ED CARD) 

ERROR INITIALIZING REGIONAL 
DATA SET 

CONFLICTING ATTRIBUTE AND 
ENVIRONMENT PARAMETERS 

CONFLICTING ENVIRONMENT AND/OR 
ED PARAMETERS 

KEY LENGTH NOT SPECIFIED 

INCORRECT BLOCKSIZE AND/OR LOG- 
ICAL RECORD SIZE 

LINESIZE GT IMPLEMENTATION 
DEFINED MAXIMUM LENGTH 

CONFLICTING ATTRIBUTE AND DD 
PARAMETERS 
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APPENDIX E: 



DUMP INDEX 



The dump index provided by the subrou- 
tines IHEWDUM, IHEWZZC and IHEWZZF contains 
information about: 

Files currently open 

Current file 

Save areas 

On-units, interrupts and other details 

This inforiration is output to SYSOUT. 

If the task is conversational, the dump 
index is followed by a PAUSE. The pro- 
grammer may enter any valid commands: for 
example, he may display areas defined by 
the index. Execution of the program con- 
tinues after a GO command. 

If the task is nonconversational, then 
all pages containing save areas or file 
blocks are dumped to SYSOUT, with 
DSNAME=PLIDUMP. 

Files Currently Open 

File name 
A(DCLCB) 
A(FCB) 
A(DCB) 

File-register offset in PRV 
Current File 

I/O Files: File name 

A (DCLCB) 

A(FCB) 

A(DCB) 

STRING Files: A(SDV) 

Save Areas 

A trace-back through the save-area chain 
provides the following addresses : 

A (All save areas, including the library 
save areas) 

A (Current LCA) 



A (PRV VDA) 
A(VDA for LWS2) 
Other Information 



If a CALI was made: 
A (CALL) 

A (Procedure) or 
A (Entry point of library module) 

If a BEGIN block was entered: 
A (Entry point) 

If a prograir interrupt occurs: 
A (Interrupt) 

If an on-unit was entered: Type of on- 
unit. If this on-unit is the error on- 
unit and was entered as a result of sys- 
tem action the condition causing the 
system action is given. 

If IHEDMA occurs in the trace-back: The 
names of the modules used in the conver- 
sion are given. 

The statement number (if it exists) is 
given. 

The following program illustrates the 
use cf the dump index: 



1 TDUMP: 

2 

3 

4 
6 
8 
9 



10 

11 
12 
13 
14 
15 
16 

17 

18 



CONVPROC: 



PROC OPTIONS (MAIN) ; 

DC1 A CHARU) INITCAECD' ); 

CCL IHESARC ENTRY (FIXED 

BIN) ; 

ON ERROR CALL IHEDUMP; 

ON CONV CALL CONVPROC; 

CALL IHESARC (20) ; 

PUT LIST ('THIS IS THE 

FIRST LINE 1 ) ; 

PUT SKIP LIST ('THIS IS THE 

SECOND LINE') ; 

OPEN FILE(XYZ) OUTPUT; 

BEGIN; 

X=A; /* CONV ERROR */ 

END; 

PROC; 

DCL Y(-32768:-32768,- 

32768:-32768) CHAR(6U); 

Z=Y( 32767, 32767) ; /* 

ADDRESSING ERROR */ 

END TDUMP; 



This program produces the following output 
and dump index when in conversational mode. 

If there had been a current file, this 
would have appeared after the section on 
'Files Opened ty This Task.' 
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THIS IS THE FIRST LINE 

THIS IS THE SECOND LINE 

I HESO^ 1 ADDRESSING INTERRUPT IN STATEMENT 00017 AT OFFSET +Q00AC FROM ENTRY POINT CONVPROC 

» - :: TSS/36 PL/1 1HEDUMP 1 D= : * : * :: 
»»" FILES OPENED BY THIS TASK 

XYZ DCLCB 304000 FOB 350D3O DCB 350D68 PR OFFSET 0B0 

SYSPRINT DCLCB 303000 FCB 35QC28 DCB 350C60 PR OFFSET 04C 
:::::: CHAIN BACK THROUGH SAVE AREAS 

3766F8 DSA FOR ERR ON-UNI" CALLS 1HEDUMP FROM 3001C2 (STMT 5) 
376000 SECONDARY LIBRARY WORKSPACE 

376010 SAVE AREA FOR LIBRARY CALLS 300168 FROM 306428 LCA AT 3763F8 

363B58 SAVE AREA FOR LIBRARY CALLS 30504A FROM 3063FA LCA AT 363BF8 

363990 SAVE AREA FOR LIBRARY INTERRUPT AT 341056 LCA AT 363BF8 

301198 DSA FOR PROC CONVPROC CALLS 341000 FROM 3002CE (STMT 17) 

363EF8 DSA FOR ERR ON-UNIT RAISED BY CONV CONDITION. CALLS 300228 FROM 300222 (STMT 7) 
363800 SECONDARY LIBRARY WORKSPACE 

363810 SAVE AREA FOR LIBRARY CALLS 3001C8 FROM 306428 LCA AT 363BF8 

365350 SAVE AREA FOR LIBRARY CALLS 30504A FROM 3063EA LCA AT 3653F0 

3650F0 SAVE AREA FOR LIBRARY CALLS 306014 FROM 3430F2 LCA AT 3653F0 

365188 SAVE AREA FOR LIBRARY CALLS 343000 FROM 3410D6 LCA AT 3653F0 

301110 DSA FOR BEGIN CALLS 341000 FROM 300152 (STMT 13) 

3656F0 DSA FOR PROC TDUMP ENTERS BEGIN AT 300108 
364000 PRV - PSEUDO REGISTERS START AT 364008 

00247C EXTERNAL SA CALLS 300000 
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APPENDIX F: 



PL/I LIBRARY MODULE NAMES AND ALIASES 



Thi 


ls appendix contains 


a tabl 


e listing 


DIL 


the PL/I Library modules in alphabetical 


DIM 


order 


along with their associated aliases; 


DMA 


6 character alias names are CSECTs, 7 


DNB 


character alias names are 


entry 


points • 


DNC 


For a 


description of 


each 


module, see Sec- 


DOA 


tion III, Module Summaries. In 


the 


DOB 


interests of clarity 


, the 


preceding charac- 


DOD 


1 ters IHEW and IHE, as indicated 


by the 


DOE 


J first 


entries, have been omitted. 


DOM 












DSP 


MODULE 








DUM 


NAMES 


ALIASES 








DVU 
DW 


IHEWABU IHEABUO, IHEABU 






DZW 


ABV 


ABV0 f ABV 








DZZ 


ABW 


ABWO, ABW 








EFL 


ABZ 


ABZQ, ABZ 








EFS 


ADD 


ADDO, ADD 








ERD 


ADV 


ADV0 f ADV 








ERE 


APD 


APDA, APDB, 


APD 






ERI 


ATL 


ATL1,2,3 and 4, ATL 




ERO 


ATS 


ATSl f 2,3 and 4, ATS 




ERP 


ATW 


ATWH, ATWN f 


ATW 






ERR 


ATZ 


ATZH, ATZN, 


ATZ 






ESM 


BEG 


BEG A, BEGN, 


BEG 






EXL 


BSA 


BSA0 f BSA 








EXS 


BSC 


BSCO, BSC 








EXW 


BSD 


BSD0 f BSD 








EXZ 


BSF 


BSFO, BSF 








HTL 


BSI 


BSI0 r BSI 








HTS 


^BSK 


BSKA, BSKK, 


BSKR, 


BSK 




IOA 


BSM 


BSMF, BSMV, 


BSMZ, 


BSM 




IOB 


BSN 


BSNO, BSN 










BSO 


BSOO, BSO 








IOC 


BSS 


BSS2 and 3 f 


BSS 






IOD 


BST 


BSTA, BST 








IOF 


BSV 


BSVA, BSV 








ION 


CFA 


CFAA, CFA 








IOP 


CFB 


CFBA, CFB 








IOX 


CFC 


CFCA f CFC 








ITB 


CKP 


CKPS, CKPT, 


CKP 






ITD 


CLT 


CLTA, CLTB, 


CLT 






ITE 


CNT 


CNTA r CNTB, 


CNT 






ITG 


I CSC 


CSCO, CSC 








ITM 


1 CSI 


CSIO, CSI 








ITN 


CSK 


CSKK, CSKR, 


CSK 






JXI 


CSM 


CSMB, CSMF, 


CSMH, 


CSML, 


CSMV f CSM 


JXS 


CSS 


CSS2 and 3, 


CSS 






KCA 


CST 


CSTA, CST 








KCB 


CSV 


CSVA f CSV 








KCD 


OJC 


XCVC, CVC 








LDI 


DBN 


DBNA f DBN 








LDO 


DCN 


DCNA, DCNB, 


DCN 






LNL 


DDI 


DDI A, DDIB, 


DDI 






LNS 


DDJ 


DDJ A, DDJ 








LNW 


DDO 


DDOA, DDOB, 


DDOC, 


, DDOD, 


DDOE, DDO 


LNZ 


DDP 


DDPA, DDPB, 


DDPC, 


DDPD f 


DDP 


LSP 


DIA 


DIAA, DIAB, 


DIA 






MPU 


DIB 


DIBA f DIBB, 


DIB 






| MPV 


DID 


DIDA, DID 








MXB 


DIE 


DIEA, DIE 








MXD 



DILA, 


DILB, 


DIL 






DIMA, 


DIM 








DMAA, 


DMA 








DNBA, 


r DNB 








DNC A, 


DNC 








DOAA, 


r DOAB, 


DOA 






DOBA, 


DOBB, 


DOBC, 


DOB 




DODA, 


r DODB, 


DOD 






DOEA, 


DOE 








DOMA, 


, DOM 








DSPA, 


DSP 








DUMC, 


P DUMJ r 


DUMP, 


DUMT, 


DUM 


DVUO, 


DVU 








DW0 ( 


, DW 








DZWO, 


DZW 








DZZO, 


, DZZ 








EFLC, 


EFLF, 


EFL 






EFSC, 


, EFSF, 


EFS 






ERD A, 


ERD 








EREA 


, ERE 








ERIA, 


ERI 








EROA, 


, ERO 








ERP A, 


, ERP 








ERRA 


, ERRB r 


ERRC, 


ERRD, 


ERRE, ERR 


ESMA, 


, ESMB f 


ESM 






EXLO, 


, EXL 








EXSO, 


r EXS 








EXWO 


, EXW 








EXZO, 


, EXZ 








HTLO, 


, HTL 








HTSO 


, HTS 








IOAA ( 


r 10 AB, 


IOAC, 


IOAD, 


IOAT, IOA 


IOBA 


, IOBB, 


IOBC, 


IOBD, 


IOBE, 


IOBT, 


r IOB 








I OCA 


, IOCB, 


IOCC, 


IOCT, 


IOC 


IODG ( 


f IODP, 


IODT, 


IOD 




ITAZ 


, I TAX, 


IOFA, 


IOFB, 


ITAA, IOF 


IONA, 


P ION 








IOPA 


, IOPB, 


IOPC, 


IOP 




I OX A 


, IOXB, 


IOXC, 


IOX 




ITBA 


r ITB 








ITDA 


, ITD 








ITEA 


, ITE 








ITGA 


, ITG 








ITMA 


, ITM 








ITN A 


, ITN 








JXIA 


, JXII f 


JXIY, 


JXI 




JXS I 


, JSXY 








KCAA 


, KCA 








KCBA 


f KCB 








KCDA 


, KCDB, 


KCD 






LDIA 


r LDIB, 


LDIC, 


LDI 




LDOA 


, LDOB, 


LDOC, 


LDO 




LNL2 


, LNLD r 


LNLE, 


LNL 




LNS2 


, LNSD, 


LNSE, 


LNS 




LNWO 


, LNW 








LNZO 


, LNZ 








LSPA 


, LSPB, 


LSPC, 


LSPD, 


LSPE, LSP 


MPUO 


, MPU 








MPVO 


f MPV 








MXBN 


, MXBX, 


MXB 






MXDN 


, MXDX, 


MXD 
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MXL 


MXLN, 


MXLX, 


MXL 


1 


THS 


THSO, 


THS 








MXS 


MXSN, 


MXSX, 


MXS 




TNL 


TNLD, 


r TNLR, 


TNL 






MZU 


MZUD, 


MZUM, 


MZU 




TNS 


TNSD, 


TNSR f 


TNS 






MZV 


MZVD, 


MZVM, 


MZV 




TNW 


TNWH, 


, TNWN f 


TNW 






MZW 


MZWO, 


MZW 






TOM 


TOMA, 


TOM 








MZZ 


MZZO, 


MZZ 






TSA 


CTTA, 


DDTA f 


DDTB f 


DDTC r 


DDTD f 


NL1 


NL1A, 


NL1L, 


NL1N, 


NLl 




DDTE, 


t IBTA, 


IBTB, 


IBTC, 


IBTD, 


NL2 


NL2A 4 


r NL2L, 


NL2N, 


NL2 




IBTE, 


IBTT, 


IGTA f 


INTA # 


OCTA f 


OCL 


OCLA, 


r OCLB, 


OCLC f 


OCL 




OCTB, 


, OCTC f 


PTTA r 


PTTB f 


TCVA, 


OPN 


OPNA, 


r OPN 








TCVB, 


TERA, 


TPBA, 


TPRA f 


TSAA, 


OPO 


OPO A, 


, OPO 








TSAC, 


r TSAD f 


TSAE, 


TSAF, 


TSAG f 


OPP 


OPPAi 


, OPP 








TSAL, 


TSAM, 


TSAN f 


TSAP, 


TSAR, 


OPQ 


OPQ A, 


r OPQ 








TSAT, 


r TSAV, 


TSAW, 


TSAX, 


TSAY, 


OSD 


OSD A, 


r OSD 








TSAZ, 


TSEA, 


TSSA f 


TSWA f 


TSA 


OSE 


OSEA, 


r OSE 






UPA 


UPAA ( 


r UPAB, 


UPA 






OSI 


OSI A, 


, OSI 






UPB 


UPBA, 


UPBB, 


UPB 






OSS 


OSSA, 


, OSS 






VGA 


VCAA, 


VGA 








OST 


OST A, 


r OST 






VCS 


VCS A, 


, VCSB, 


VCS 






OSW 


OSWA, 


, OSW 






VFA 


VFAA g 


VFA 








PDF 


PDFO, 


r PDF 






VFB 


VFBA, 


, VFB 








PDL 


PDL0 ( 


, PDL 






VFC 


VFCA, 


VFC 








PDS 


PDSO, 


, PDS 






VFD 


VFD A, 


r VFD 








PDW 


PDW0 ( 


, PDW 






VFE 


VFEA ( 


VFE 








PDX 


PDXO 


p PDX 






VKB 


VKBA 


, VKB 








PDZ 


PDZO, 


r PDZ 






VKC 


VKCA, 


VKA 








PRT 


PRTA 


, PRTB f 


PRT 




VKF 


VKFA 


, VKF 








PSF 


PSFO 


, PSF 






VKG 


VKGA, 


r VKG 








PSL 


PSLO 


, PSL 






VPA 


VPAA 


, VPA 








PSS 


PSSO 


, PSS 






VPB 


VPBA, 


VPB 








PSW 


PSWO 


, PSW 






VPC 


VPCA 


r VPC 








PSX 


PSXO 


r PSX 






VPD 


VPDA, 


VPD 








PSZ 


PSZO 


, PSZ 






VPE 


VPEA 


, VPE 








RES 


REST 


, RESN, 


RES 




VPF 


VPFA, 


r VPF 








SAP 


SADA 


, SADB, 


SADD, 


SADE, SADF, 


VPG 


VPGA 


, VPG 










SAFA 


, SAFB, 


SAFC r 


SAFD, SAFF, 


VPH 


VPHA, 


VPH 










SAFQ 


, SAPA, 


SAPB f 


SAPC, SAPD, 


VQA 


VQAA 


r VQA 










SARA 


, SARC, 


SAP 




VQB 


VQBA, 


VQB 








SHL 


SHLS 


, SHLC f 


SHL 




VQC 


VQCA 


r VQC 








SHS 


SHSC 


, SHSS t 


SHS 




VSA 


VSAA, 


r VSA 








| SMF 


SMFO 


, SMF 






VSB 


VSBA 


, VSB 








SMG 


SMGC 


, SMGR, 


SMG 




VSC 


VSCA, 


, VSC 








SMH 


SMHC 


, SMHR f 


SMH 




VSD 


VSDA 


P VSDB f 


VSD 






I SMX 


SMXO 


r SMX 






VSE 


VSEA, 


r VSEB, 


VSE 






SNL 


snlc 


, SNLK, 


SNLS, 


SNL 


VSF 


VSFA 


, VSF 








SNS 


SNSC 


, SNSK, 


SNSS, 


SNSZ, SNS 


VTB 


VTB A, 


T VTB 








J SQW 


SQWO 


, SQW 






XIB 


XIBO 


, XIB 








SNW 


SNWK 


, SNWC f 


SNWS, 


SNWZ r SNW 


XID 


XID0 ( 


P XID 








SPR 


SPRT 








XI L 


XILO 


r XIL 








I SQL 


SQLO 


, SQL 






XIS 


XISO, 


, XIS 








SQS 


SQSO 


r SQS 






XIU 


XIUO 


, XIU 








1 SQZ 


SQZO 


, SQZ 






XIV 


XIVO, 


, XIV 








SRC 


SRCA 
SRCF 


, SRCB f 
, SRC 


SRCC, 


SRCD, SRCE f 


XIW 
XIZ 


XIWO 
XIZO, 


, XIW 

r XIZ 








SRD 


SRDA 


, SRD 






XXL 


XXLO 


f XXL 








SRT 


SRTA 


, SRTB, 


SRTC f 


SRT 


XXS 


XXSO 


, XXS 








| SSF 


SSFO 


, SSF 






xxw 


XXWO 


, XXW 








SSH 


SSHC 


r SSHR f 


SSH 




xxz 


XXZO 


, xxz 








| SSX 


SSXO 


, SSX 






YGF 


YGFS 


, YGFV f 


YGF 






STG 


STGA 


, STGB, 


STG 




YGL 


YGLS 


, YGL 








STP 


STPA 


, STP 






YGS 


YGSV 


, YGSS, 


YGS 






STR 


STRA 


, STRB, 


STRC, 


STR 


YGW 


YGWV 


, YGWS, 


YGW 






TAB 


TABS 


p TAB 






YGX 


YGXV 


, YGXS f 


YGX 






TEA 


TEAA 


, TEA 






YGZ 


YGZV 


, YGZS f 


YGZ 






TEV 


TEVA 


, TEV 






ZZC 


ZZC A 


, ZZC 








| THL 


THLO 


, THL 






ZZF 


ZZFA 


, ZZF 
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APPENDIX G: PL/I SHARED LIBRARY ARRANGEMENT 



The PL/ I Library is arranged in two 
modules. Module CFBAI contains all the 
shared library modules, in control sections 
which are one page or less in length. Each 
control section is formed by linkage edit- 



into it. In so far as possible, modules in 
a control section refer only to each other 
and have no references outside the control 
section other than to module IHEWCVC f which 
contains all the address constants and is 



ing and is named by the first module linked the only control section in module CFBAJ. 



Module CFBAI (READONLY, PUBLIC, SYSTEM) : 



Control 




























Section 














Module Names 










ABW 


ABW 


SQS 


SQW 


ABZ 


SQL 


SQZ 


ADD 


ADV 


APD 


DW 


MPV 


BSA 


BSC BSD BSF CFC 


ATW 


ATW 


ATS 


BTS 


LNW 


LNS 


XXW 


XXS 


EXS 


EFS 


THS 


TNW 


TNS 


SHS EXW SNW SNS 


ATZ 


ATZ 


ATL 


HTL 


LNZ 


LNL 


XXL 


XXZ 


EXZ 


EXL 


EFL 


THL 


TNZ 


TNL 


BSK 


BSK 


STG 


ERE 


XIB 


XID 


XIL 
















CST 


CST 


VSE 


BSO 


DNB 


CSV 


STP 
















DDI 


DDI 


DDJ 


DDO 


DDP 


MXL 


MXS 


OSE 


OSS 


YGL 


YGS 








DIA 


DIA 


DIB 


DID 


DIE 


DIM 


DOA 


DOB 


DOD 


DOE 










DMA 


DMA 


VFA 


VFB 


VFC 


VFD 


VFE 


VKB 


VKC 


VPA 


VTB 


VPF 


VPE 




DOM 


DOM 


DNC 


DBN 


DCN 


KCA 


KCD 
















DZW 


DZW 


ZZF 


ZZC 


TSA 


TOM 


















ERR 


ERR 


BSS 


CSS 


DIL 


SRC 


SRD 


YGW 


CNT 


BST 










ESM 


ESM 


CKP 


ABV 


BEG 


XIZ 


YGZ 


YGX 














IOA 


IOA 


LDI 


LDO 


TEV 


TEA 


















IOX 


IOX 


I OB 


IOC 


IOD 


IOF 


ION 


IOP 














ITB 


ITB 


SRT 
























ITE 


ITE 


ITD 
























ITN 


ITN 


CLT 


OST 






















JXI 


JXI 


NL2 


PDL 


PDS 


PDW 


PDZ 


osw 


SMH 


SMG 


SMX 


SMF 


PDF 


PDX DVU CSM CSC 


KCB 


KCB 


UPA 


UPB 


VCA 


VCS 


VSA 


VSB 


VSC 


VSD 










OCL 


OCL 


OPN 


OPQ 


MZU 




















OPO 


OPO 


MZV 


MZW 


MZZ 


OSI 


XIU 


XIV 


XIW 


CFA 










OPP 


OPP 


XI S 


ITM 






















PRT 


PRT 


OSD 


LSP 


ITG 


DUM 


CFB 
















SAP 


SAP 


DZZ 
























SNL 


SNL 


SHL 


SNZ 


JXS 


NLI 


PSF 


PSL 


PSS 


PSW 


PSX 








SPR 


SPR 


PSZ 


SSG 


SSH 


SSF 


SSX 


BSI 


BSM 


BSN 










VKF 


VKF 


VKG 


VPB 


VPC 


VPD 


















VPG 


VPG 


VPH 


ERP 


ERO 


ERI 


ABU 
















VSF 


VSF 


VQA 


VQB 


vgc 


ERD 


CSI 


CSK 


MPV 


MXB 


MXD 








YGF 


YGF 


TAB 


STR 


DSP 


BSV 


RES 
















Module CFBAJ 


(Syst 


em) 
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INDEX 



Where more than one page reference is 
given, the major reference is first. 



freeing 25 
automatic transmission 



21 



A format items 46 
ABEND macro 22 
abnormal return 43 
abnormal termination 29 
access method interfaces 

CONSECUTIVE data sets 
BSAM 21 
QS AM/VS AM 21 

INDEXED data sets 
VISAM 21,22 
address of current LSW 25 
addressing interrupt 35 
ADV (Array Dope Vector) 7,51 
ADV field definition 106 
aliases of modules 136 
alignment, (fixed/varying strings) 44 
ALL (arrays) 51 
ALLOCATE statement 25,27 
ANY (arrays) 51 
AREA 

alignment 27 

attribute 27 

based variables, extent 27 

condition 29 
area storage for based variables 27 
area variable 27,124 
area variable assignment 28 
arguments 

array 7 

conversion 5 

evaluation of 50 

in mathematical subroutines 50 

scalar 7 
arithmetic assignment, function and 

operation 4 9 
arithmetic conversions and editing 45 
arithmetic data representation 6 
arithmetic target fields 54 
array, storage 106 
array dope vector (ADV) 7,106 
array dope vector (ADV) field 

definition 106 
array element address 106 
array functions 50 

ALL 50-51 

ANY 50-51 

POLY 50-51 

PROD 50-51 

SUM 50-51 
arrays 

interleaved 50 

simple 50 
assignment of area variables 28 
automatic storage 25 

allocation 25 

allocation requirements 25 

chain back 2 5 



B format items 46 
based variables 

allocation 27 

area storage 
allocate 27 
element 27 
free elements 27 
free list 27 
offset 27 

systenr storage 27 
BCD name, address and length 39 
bit functions, byte aligned 4 8 
bit string conversion 48 
tit string/picture character string 

conversion 4 6 
block header statement 38 
block housekeeping 23 

epilogues 23 

object program management 30 

prologues 23 
blocks, non-recursive/recursive 24 
EOOL function 48 
BSAM 

F-forirat records 21 

overlap of transmission 21 

UNBUFFERED 21 

V-format records 21 
built-in function 

DATE 39 

ONCODE 39 

ONLOC 39 

TIME 39 
byte-aligned functions 48 



C format i teres 44 

CAD (Coded Arithmetic Data Item) 5 

calling sequence, PL/I 5 

chain-back address 4 

chaining of control blocks 122-123 

chaining of lOCBs 123 

change data (internal) 44 

character string/arithmetic conversion 46 

character string/bit string conversion 46 

character string/picture string 

conversion 4 6 
CHECKPOINT 1 
close process 

explicit 12 

implicit 12 
close QSAM data sets 21 
coded arithmetic data item (CAD) 5 
coding conventions 5 
communication mode 

explicit 7 

implicit 7 
communications conventions 7 
compiled code, edit directed 15 



Index 139 



compiler- generated control blocks 106 
complex arguments 54 
complex directors 4 2 
complex-to-string directors 42 
computational subroutines 47 
control blocks 7 

compiler-generated 10 6 

input /output 119-123 

record I/O 19 
control length allocation request 2 5 
control program interfaces 54 
controlled storage 25 
conventions 

coding 5 

naming 4 
conversion 

function 40 

mode 44 

of internal arithmetic 4 6 

package structure 44-46 
CONVERSION error code 4 7 
conversion handling 4 4-45 
conversion to bit string 44-45 
conversions , arithmetic 45 
conversions, string 44 
COPY option 17 
counter, location 15 
current file 

address 12 

function references 13 

stacking 13 
current file dump index 134 
current LWS address 25 



data checking 

data-directed 46 

edit-directed 46 

list-directed 46 
data conversion 40 

data element descriptor (DED) 107,41,7 
data event control block (DECB) 21 r 121 
data form 4 
data list 4 
data processing 54 
data processing routines 40 
data representation 5,40 

arithmetic 5 

string 5 
data sets 12 
data specifications 

data-directed 15 

edit-directed 15 

list-directed 15 
data-directed data specifications 15 
data-directed input/ out put 15 
DATE built-in function 4 
DCB-appendage 10 

DCICB (Declare Control Block) 114 
DECB (Data Event Control Block) 22 
decimal overflow interrupt 35 
declare control block 9 r 114 
declare control block, format 9 
DED 

creation 41 

flag byte 107 
DED (Data Element Descriptor) usage 7 
DED discussion 107 , 41 



DED field definition 107 
DELAY statement 39 
dependency, inter-irodular 54 
EIR macro 24 
directors 

complex 43 

input 4 3 

input/output 4 3 

output 43 
directors, library format 15 
disabling prefix options 37 
DISPLAY statement 40 
DISPLAY with EVENT option 40 
dope vector address restrictions 54 
dope vector descriptor (DVD) 108,7 
DSA 

chain 3 2 

format 125 

save-area chain 31 

size 32 
DSA (Dynamic Storage Area) 125,30 
DSA definition 30 
DSA format 125 
dump 

execution time 8 

subroutines 8 
dump index 134 

DVD (Dope Vector Descriptor) 108,7 
DVD structure 108 

dynamic storage/area (DSA) definition 24 
dynairic storage area (DSA) format 124-125 



edit-directed compiled code 16 
edit-directed data specification 15 
edit-directed input/output 42 
editing 43 

editing arithmetic 45 
entry-parameter procedures 29 
epilogues 42 
error codes 11 
error handling 32 

data- directed 46 

edit-directed 4 6 

flowchart 34 

list-directed 46 

module 1HEWERR 33 
error message printing 33 
evaluation of arguments 50 
event variables 115 
executable format scheme 42,15,16 
execution of program 10 
EXIT statement 40 
explicit close 12 
EXPLICIT OPEN/CLOSE 11 
external names 4 



F/E format items 46 

FCB (File Control Block) 116,10 

FCB history flag 119 

FED format 41,108 

FEE (Format Element Descriptor) usage 7 

file 

addressing 9 

attributes 9 

control block 10 

in control block chaining 10 
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file control block (FCB) 116-119,10 

address 10 

discussion 10 
file register 10-11 
file/data relationship 9 
float-arithmetic generic functions 50 
floating-point arguments 50 
form of data 42 
format 

SSA 111 

SSA flag byte 112 
format, psuedc-register names 129 
format directors 

arithmetic conversion 43 

arithmetic-to-string 43 

complex 43 

complex-to- string 42 

I/O 43 

library 15 

string-to-arithmetic 44 
format element descriptor (FED) 108 
format element descriptor usage 7 
format item 

A/B/X 108,46 

E 108,46 

F 108,46 

P 109 

picture 4 6 
format item attributes 4 6 
format list 43 
formats 7 

FPI (Long Floating Point Intermediate) 
free core chain 

format 25 

structure 26 
free elements (area storage) 27 
free list (area storage) 27 
FREE statement 25,27 
FREEMAIN macro 2 5,27 



GATWR macro 24 

general dsign string package 48-49 

general implementation features 4 

GET/PUT code structure 13 

GETBUF macro 20 

GETMAIN macro 25,26 

GETPOOL macro 2 

GO TO statements 29 



45 



HIGH/LOW function 48 



IHEWABU 


54 


IHEWABV 


55 


IHEWABW 


55 


IHEWABZ 


55 


IEEWADD 


55 


IHEWADV 


55 


IHEWAPD 


55 


IHEWATL 


56 


IHEWATS 


56 


IHEWATW 


56 


IHEWATZ 


57 


IHEWBEG 


57 


IHEWBSA 


57 


IHEWBSC 


57 



IHEWESE 


57 




IHEWBSF 


57 




IHEWBSI 


58 




IHEWBSK 


58 




IHEWBSM 


58 




IHEWBSN 


58 




IHEWESO 


58 




IBEWBSS 


58 




IHEWEST 


59 




IHEWBSV 


59 




IHEWCFA 


59 




IBEWCFB 


59 




IHEWCFC 


59 




IHEWCKP 


59 




IHEWCLT 


59 




IHEWCNT 


bO 




IHEWCSC 


60 




IHEWCSI 


60 




IHEWCSK 


60 




IHEWCSM 


61 




IHEWCSS 


61 




IBEWCST 


61 




IBEWCSV 


61 




IHEWCVC 


62 




IHEWDBN 


62 




IHEWECN 


62 




IriEWDDI 


62 




IHEWEDJ 


62 




IHEWDDO 


63 




IHEWEDP 


63 




IHEWDIA 


64 




IHEWDIB 


64 




IHEWDID 


64 




IHEWEIE 


64 




IHEWDIL 


64 




IHEWEIM 


64 




IHEWDMA 


65 




IHEWENB 


65 




IHEWDNC 


65 




IHEWEOA 


65 




IHEWDOB 


65 




IHEWEOD 


66 




IhEWDOE 


66 




IHEWEOM 


66 




IHEWDSP 


66 




IHEWEUM 


67 




IHEWDVU 


67 




IBEWEVV 


67 




IHEWDZW 


67 




IHEWEZZ 


67 




IHEWEFL 


67 




IHEWEFS 


68 




IHEWEQxx 


(symbolic name of pseudo 
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IBEWERD 


68 




IHEWERE 


68 




IHEWERI 


68 




IHEWERO 


68 




IHEWERP 


68 




IHEWERR 


68 




IHEWEStf 


69 




IBEWEXL 


69 




IHEWEXS 


69 




IBEWEXW 


69 




IHEWEXZ 


69 




IBEWBTL 


70 




IHEWBTS 


70 




IHEWIOA 


70 






Index 
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IHEWIOB 70 

IBEWIOC 71 

IBEWIOD 71 

1HEWIOF 72 

IHEWION 72 

IHEWIOP 72 

IHEWIOX 72 

IHEWITB 72 

IHEWITD 73 

IHEWITE 73 

IHEWITG 73 

IHEWITM 73 

IHEWITN 73 

IHEWJXI 74 

IHEWJXS 74 

IHEWKCA 74 

IHEWKCB 74 

IHEWKCD 75 

IHEWLDI 75 

IHEWLDO 75 

IHEWLNL 76 

IHEWLNS 76 

IHEWLNW 76 

IHEWLNZ 76 

IHEWLSP 76 

IBEWMPU 77 

IBEWMPV 78 

IBEWMXB 7 8 

IBEWMXD 78 

IHEWMXL 78 

1HEWKXS 78 

IBEWMZU 79 

IBEWMZV 79 

IHEWMZW 79 

IHEWMZZ 79 

IBEWNLl 79 

IHEWNL2 80 

IHEWOCL 80 

IHEWOPN 81 

JBEWOPO 81 

IHEWOPP 81 

IHEWOPQ 8 2 

IHEWOSD 8 2 

IHEWOSE 82 

IHEWOSI 82 

IHEWOSS 8 2 

IHEWOST 83 

IHEWOSW 83 

IBEWPDF 83 

IHEWPDL 83 

IBEWPDS 8 3 

IBEWPDW 83 

IHEWPDX 84 

1HEWPDZ 84 

IHEWPRT 84 

IHEWPSF 84 

IHEWPSL 84 

IHEWPSS 8 4 

IHEWPSW 85 

IHEWPSX 85 

IBEWPSZ 85 

IHEWRES 8 5 

IBEWSAP 85 

IHEWSHL 87 

IBEWSBS 87 

IHEWSMF 88 

IHEWSMG 88 

IHEWSMH 88 



IHEWSMX 


88 


IBEWSNL 


88 


IHEWSNS 


89 


IBEWSNW 


89 


IBEWSNZ 


89 


IHEWSPR 


90 


IBEWSQL 


90 


IBEWSQS 


90 


IHEWSQL 


90 


IBEWSQZ 


90 


IHEWSRC 


90 


IHEWSRD 


91 


IHEWSRT 


91 


IHEWSSF 


91 


IHEWSSG 


91 


IBEWSSB 


91 


IBEWSSX 


92 


IBEWSTG 


92 


IBEWSTP 


92 


IBEWSTR 


92 


IHEWTAB 


93 


IHEWTEA 


93 


IHEWTEV 


93 


IBEWTBL 


93 


IHEWTHS 


93 


IHEWTNL 


94 


IBEWTNS 


94 


IHEWTNW 


94 


IHEWTNZ 


94 


IHEWTOM 


94 


IBEWTSA 


95 


IHEWUPA 


95 


IBEWUPB 


95 


IBEWVCA 


95 


IHEWVCS 


95 


IBEWVFA 


96 


IBEWVFB 


96 


IHEWVFC 


96 


IBEWVFD 


96 


IHEWVFE 


96 


IHEWVKB 


96 


IHEWVKC 


96 


IHEWVKF 


96 


IHEWVKG 


97 


IBEWVPA 


97 


IHEWVPB 


97 


IBEWVPC 


97 


IBEWVPD 


97 


IBEWVPE 


97 


IHEWVPF 


97 


IBEWVPG 


98 


IHEWVPH 


98 


IBEWVQA 


98 


IBEWVSA 


98 


IBEWVSB 


98 


IBEWVSC 


98 


IHEWVSD 


99 


IHEWVSE 


99 


IHEWVSF 


99 


IBEWVTB 


99 


IBEWXIB 


99 


IBEWXID 


99 


IBEWXIL 


100 


IBEWXIS 


100 


IBEWXIU 


100 


IBEWXIV 


100 


IBEWXIW 


100 


IHEWXIZ 


100 
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IHEWXXL 100 

IHEWXXS 101 

IHEWXXW 101 

IHEWXXZ 101 

IHEWYGF 101 

IHEWYGL 101 

IHEWYGS 101 

IHEWYGW 102 

IHEWYGX 102 

IHEWYGZ 102 

IHEWZZC 103 

IHEWZZF 103 

illegal conversion 47 

illegal input, format director 46 

implementation-defined system action 39 

implicit close 12 

INDEX function 4 8 

indexing routines 50 

initialization 

PL/ I program 12 

PRV 10 

routines 

entry point 29 
exit 29 
initialization of program 29 
INPUT/OUTPUT 9 
input/output 

control block (IOCB) 20,119-121 

control blocks 114 

data-directed 43 

directors 42 

editing 43 

list-directed 43 
integral values 'linkage" 54 
inter-modular dependency 54 
interface modules, record I/O 19 
interfaces, TSS 39 
interleaved arrays 50 
internal change of data 44 
internal conversions 46 
interrupt handling 32 
interrupts, treatment of 31 
invalid parameters 47 
invocation count 24 
IOCB 

creation 20 

DIRECT usage 21 

SEQUENTIAL usage 20 

size 20 
IOCB (Input/Output Control 

Block) 20,119-121 
IOCB, example of chaining 122-123 



definition 7 

levels 

primary 8 
secondary 8 
LINE option 17 
linkage 

conventions 4 

specifications 54 
linkage editing 5 

linkage to string subroutines 48 
list processing 

based variables 27 

storage 27 
list processing, allocation 27 
list-directed data specification 15 
list-directed input/output 43 
LOCATE 

GET 21 

PUT 21 
location counter 15 
long floating point intermediate 

representation 4 5 
LOW function 4 8 
LWS (Library Workspace) 24,109 

definition 7 

format 109 

pseudo-registers 2 5 

VEA 25 



macro, library 131 
iracrc instructions 

library 5,131 

systeir 1,128 
main-storage management 23 
nanagement 

program 23 

storage 23 
mathematical functions 50 
mathematical target fields 54 
miscellaneous TSS/360 interfaces 39 
node conversions 44 
module names 54-103 

(see also IHEWxxx entries in 
alphabetical order) 
nodule names/aliases 136 
module summaries 54-103 
nodule usage 1 
modules 

as closed subroutines 1 

as interface 1 
imltitasking 1 



KEY 'sequence error condition 22 
KEYFROM 22 



nairing conventions 4 
non-recursive block 24 



LCA (Library Communication Area) 109,8 
length control bytes 26 
LENGTH function 48 
library 

conversion package 40 

external names 4 

format directors 15 

macro instructions 5,131 
library communication area (LCA) 109,8 
library workspace 



OCB (Open Control Block) 122,11 
ON CHECK 15 
on- conditions 

compiled code action 37 

disabled 38 

disabling prefix options 37 

library 38 

ON CHECK 3 8 

ON STATEMENT 37 

prefix options 37 
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prologue 37 

SNAP action 39 

system action 33 
ONCODE built-in function 39 
ONLOC built-in function 39 
open control block (OCB) 122 ,11 
open process 11 
OPEN/CLOSE 

discussion 11 

error codes 11 

EXPLICIT 11 

IMPLICIT 12 

modules 11,12 
optimization, execute- time 32 
OUTPUT/INPUT 7 
overlap target field 54 



packed decimal intermediate 

representation 45 
padding (fixed- varying string) 44 
PAGE option 17 
picture character string 44 
picture format items 46 

PL/I internal error codes/messages 132-133 
PL/I library 

compatibility 1 

function 1 
PL/I library system macros 12 8 
PL/I on-conditions 37 
PL/I program management 23 
PL/I program termination 29 
PL/I pseudo-registers 129 



sequence 



49 
50 



PL/I standard calling 
PL/I statements 

DELAY 40 

DISPLAY 4 

EXIT 40 

STOP 40 
POLY (arrays) 50-51 
precision, binary data 
precision, decimal data 
precision, fixed-point data 50 
prefix options (on-conditions) 37 
process-time overlap 21 
PROD (arrays) 50-51 
program execution 10 
program initialization 23 
program interruptions 33-35 
program management 23,2 9 
prologues 2 3 

PRV (Pseudo-Register Vector) 7 
PRV initialization 10 
PRV VDA 125,24 
pseudo-register, defined 7 
pseudo-register vector (PRV) 7 
pseudo-registers, PL/I object programs 
PUT statements 13 



QSAM/VSAW 

close 21 

spanned records 
LOCATE 21 
READ SET 21 
REWRITE 21 



129 



19 



19 



radix change 45 
RDV (Record Dope Vector) 
record blocking 21 
record deblocking 21 
record dope vector (RDV) 
record input/output 

control blocks 19,20 

data iranagement access methods 

general flow 19 

interface modules 19 

logic 19 

modular linkage 18 

statement type 20 

statement verification 19 

transmitters 19 
record variable description 19 
recursive block 30 
regional I/O 1 
REPEAT function 4 8 
replication factors 15 
request codes 20 
request control block 20 
restart 1 
REVERT statement 38 



18 



37 



5,138 



47 



SAEV (String Array Dope Vector) 

save area (dump index) 134 

save area chain 31 

save areas, standard 5 

scalar values 50-51 
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